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2 RONNIE Ge ta 
an BA 1 OR Sere. : iN 
ADOIT Bee een isep f OI x DRIVES ON THE 
ere ann eae 
RPOM/S/6 MULTIORIVE EXERCISER PROGRAM WILL EXERCISE DRIVES CONNECTED 


ES HGR Ee RiP ROUT TH CONTROLLING SYSTENS, 


The Proce i WILL EXERCISE A MIXED SYSTEM OF DUAL PORT AND 


2. A RS Na ella 
inpasbeich Pi fee Wd” 


CEEDS A PRESET ot a DRIVE IS MONITORED BY THE PROGRAM 


fare Ai ae LL Frete ie" Seats SRE 


FE RES ihe i eked Grea I Sen 
DATA, WRITE HEADER 
Mae ee kee 
DURING ERROR PROCESS 
eae ted ne aia Be Re ey te ven Wie EY 
ie Rie GEPASTA ON THe GM A URITE COMO Jp, SELECTED, 
ee re. COMMUNICATIONS ARE DYNAMIC 


THROUGH THE 
oe at a) +3 Pet ec TED BY SWITCH REGISTER STINGS ERRORS 


ALL COMMANDS. DATA PATTERNS, AND DATA BUFFER SIZES ARE SELECTED 
RANDOMLY BY THE PROGRAM. poor TIONALLY THE ADDRESSES (EG, CYLINDER, 
TRACK, AND SECTOR) FOR EACH OPE Tn ARE SELECTED RANDOMLY. 


2. REQUIREMENTS 


ee me ee ee 
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2.1 EQUIPMENT 
REQUIRED 


POP-11 PROCESSOR 
(20K IF THE PROGRAM IS INCLUDED IN AN ’XXDP’ CHAIN 


LOADING DEVICE 
is OR KW11-P CLOCK 
1 OR RH70 WITH 1 RPOY, RPOS, OR RPO& DISK DRIVE 


OPTIONAL 


ADDITIONAL MEMORY TO A MAXIMUM OF 28K 
1 TO 7 ADDITIONAL RPO4/S/6’S ON THE SAME RH11 OR RH70 


2.2 MEDIA 

THE RPO4/S/6 MULTIDRIVE EXERCISER PROGRAM REQUIRES FORMATTED DISK PACKS 
WHICH CONTAIN nen OR pelea Pale PERE B BY gReDS/6 FO EP an 
PROGRAR CRatROE C= 11-DPR TE) OR BY nea oe ie . “ ore nive 


EXERCISER (SEE SECTION 4.4). THE PACKS MUST ORMA 
A (16 ert) MODE; THE ALTERNATE (20 SECTOR - 18 BIT) MODE IS 


2.3 PRELIMINARY PROGRAMS 
RPO4/S/6 DI CONTROLLER TEST 
PAR CRATE CH) 
PART 3 (RAINDEC-11-DZRIH) 
RPO4/S/6 seers 


parr renee tay) 


RPO4/S/6 A CONTROLLER LOGIC 7 (FOR DUAL PORT DRIVE TESTING) 


a 
Tw 

rae 
i oe aa) 
ee F 
gate 
— 
: 


3.1 THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER OR 


IT MAY BE L FROM THE ATE *XXDP? MEDIA USING THE IATED 
LOADER. MAY N AN’ N. IFT 
IS BEING RUN ON A WITH 16K *XXDP? LOADER WILL 
NOT ‘ THE PROGRAM HUST BE RUN ON A YSTEM WITH OR 
0 THE 'XXDP’ LOADE HE ABSOLUTE’ LOADER WILL BE 


MORE ‘ 
PRESERVED IN A 16K SYSTEM, HOWEVER. 


He eee OBIE ERE RCISER PGM MACY11 27(1006) oo-mny-7° OE 


3.2 THE PROGRAM STARTS AT LOCATION 200(8). PARAMETERS NOT INCLUDED IN 
TE TRAE IIPE DIAGLOGUE OGUE GROUP MUST BE CHANGED BEFORE THE PROGRAM 


3.3 START THE Se OTL CnT ION 204(8) IF THE RH11 OR THE RH70 IS 


NOT AT ADORESS 
°S SWAB SB RE SS? 

IF THIS IS THE PROGRAN’S FI DRIVES ON 

Te Hee PRERY RAPES Hatlthefeat SEPA: heme 


3.5 PASS/TEST TERMINATION 


eee a eee 
Bee har Serdar ied NS SAP ge 


TED TO PROVIDE A 90% CONF 
rEVEL Thar 7 He RIVE Is PTS PERFORMING. TO THE APPLICABLE SPE TPIGATION. 


3.5.1 PASS TERMINATION 


END OF PASS MAY BE DETERMINED BY EITHER OF THE FOLLOWING CONDITIONS . 
THE END OF PASS CONDITION USED IS DETERMINED BY PARAMETER ’ENDET’ 


A. IF PARAMETER ’ENDET’ IS ENO OF OCCURS WHEN THE DRIVE 
HAS READ 1.875 X | a nonis* X 10¢9 BITS). 
B. tr PRATER EMOET IS 0, END OF PASS OCCURS WHEN THE DRIVE 
HAS PERFORMED 3 X 106 SEEKS. 
3.5.2 TEST TERMINATION 
THE TEST FOR A DRIVE IS TERMINATED (SW<O4> = 0) WHEN: 
A. THE DRIVE HAS COMPLETED THE NUMBER OF PASSES SPECIFIED IN 


B. THE TOT ACCUMULATED EXCEED 100. 
C. A FATAL OCCURS: EM12 OR EM14. 


3.6 RUN TIME 


ee A eg Mg Mg ae “TS 0 es 
ane Tex In ptt ile de 
PE CETTE RATIO BRRETE TER: Ra TRATIO". A AND ae ices Den 0, 1; : 9 


3.6.1 DATA TRANSFER MODE 


ea ree 
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1 . - APPROXIMATELY 2.5 HRS (TO REACH 1.875 X 10¢8 WORDS) 
8 DRIVES - APPROXIMATELY 11 HRS (FOR ALL DRIVES TO REACH 1.875 X 10t8 WORDS) 


OTe eMC bl BEDE SB ARTETA ME AM TS 
1 OREN 1/2" HOUR FOR EARH AUDITION, DRIVE. TESTED. 


IF THE PROGRAM IS RUN WITH BOTH SW<00> AND SW<01> 
SET, THE RUN TIMES SHOULD BE ABOUT 20% FASTER. 


NOTE: ON THE FIRST PASS (QUICK VERIFY) THE TIMES ARE 
APPROXIMATELY ONE EIGHTH OF THE ABOVE VALUES. 


3.6.2 SEEK VERIFICATION MODE 
. . CTOR ( WORDS ) 
PRO BEETS, (256 
*"MAXSEC’ = *MINSEC’ 
SW<00> = 1 (READ ONLY MODE) 
1 ane ~- APPROXIMATELY 2S HRS (3 X 10t& SEEKS) 
8 DRIVES - APPROXIMATELY 40 HRS (3 X 106 SEEKS FOR ALL DRIVES) 
3.7 UNIBUS & VECTOR ADDRESSES 


THE PROGRAM ASSUMES THE FOLLOWING UNIBUS AND VECTOR ADDRESSES. (REFER 
TO SECTION 4.2.2 FOR THE LOCATIONS AT WHICH TO CHANGE THESE ADDRESSES. ) 


WIT pooress = ROORESS 
RH11 OR RH70 176700 254 
TTY PRINTER 177564 NOT USED 
TTY KEYBOARD 177560 60 
KW1l1-L 177546 100 
KW11-P 172542 104 


3.8 DUAL PORT OPERATION 
A. Lore THE RPO4/S/6 MULTIDRIVE EXERCISER PROGRAM INTO BOTH 


B. SWITCH THE *CONTROLLER SELECT’ SWITCH TO 'A/B’ ON ty DRIVE 
WHICH IS TO BE TESTED AS A DUAL PORT DRIVE; CYCLE THE DRIVES 


C. START THE PROGRAM IN EACH PROCESSOR. RUN THE PROGRAM AS THROUGH 
EACH PROCESSOR WERE RUNNING INDEPENDENTLY OF THE OTHER. 
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4 CONTROLLING THE PROGRAM 
THE FOLLOW CONVENTIONS USED BY THE KEYBOARD ENTRY 
ROUTI IN : oe - : “* 


A. TO ye oh peor CHARACTER FROM AN ENTRY STRING, TYPE A 
"(RO’). TYPING A 'RO’ WILL DELETE SUCESSIVE CHARACTERS 
FROM THE INPUT. 

TO DELETE AN ENTIRE LINE, TYPE A ’CONTROL U* (’fU’). 


CRORE TST LAINE, RUD 


LINE IS TERMINATED 


RS HUBBER fe APE Von BED ic 


IN 


D. IF A *CONTROL C’ IS TYPED DURING KEYBOARD ENTRY, THE PROGRAM 
WILL RETURN TO THE BEGINNING OF THE GROUP BEING’ ENTERED. 


4.1 DATE & OPERATOR IDENTIFICATION 
Tbe ENTRIES para’ 2 sree, ey i - A Fs Occ AND 


ORNED (SEE SECTION 4.4.3). 


WHEN T TARTED FROM LOCATION THE OPERATOR WILL BE 
ASKED W846 ENTER PARRE TERS. THE FOLLOWING feotace WILL BE DISPLAYED: 
ENTER PARAMETERS: 
THE OPERATOR MUST ENTER A ove TERMINATED By A CARRIAGE Be Us agen 
Eta Wo en Sie ee tI he baaetel ae 
ENTRY. THE PROGRAM WILL 
ENTRY IS NOT CORRECT AND WAIT FOR A CORRECT ENTRY TO BE TYPED. 


4.2.1 KEYBOARD ENTRY PARAMETERS 
DEFAULT VALUE 


4.2 


a SSeS . 


ee a oe oo 
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ENDET 


FORMAT 


RATIO 


AUTOCK 


NOTPRT 


1 


000001 


000001 


000001 





O OR 1 


O OR 1 


SPIE, Ae ARETE 


TO END OF 


VALUE 


R/W RATIO 

S/1 
a7 
2 6/2 
3 6/3 
4 Qs 
S VS 
pore 
F PaREME TER = 1, THE PROGRAM 

ORM WRITE CHECKS AFTER 


i ee ee a - - - - 
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4.2.2 


LO eS BE 


me es Fa eto ol ae ll 
er eB IED Cer tame el A yest 


PERIPHERAL ADDRESSES AND OTHER LOCATIONS OF INTEREST 
TO ALTER LOCATIONS Aa TOR MUST MAKE MANUAL ENTntes 


ay an fB STORTED Pacatt vreowe ENTRY ROUTINE DOE 

Loc TAG CONTENTS FUNCTION 

He FG eS TR AER gt 

1180 =$TPS)=s« 177564 TTY PRINTER REGISTER 

(Se es RP at Roe 

He is ieee 0 aE 

Boe S : 17786 ADORESS yh ATUS REGISTER 

1509 ail vec 1 KWL i-L CTOR 

lele HZ 74 74 (60 DECIMAL) IF SYSTEM IS 60 HZ; 
62 (SO DECIMAL) IF SYSTEM IS SO HZ. 

LE, UPR OES gO ART IPL OER DS TI 

A RE THE DEFAULT RH11-RH70 ADORESS. 


4.2.3 PARAMETERS FOR THE FIRST OPERATION 


FOLLOWING PARAMETERS ARE 


T FOR THE INITIAL OPERATION (IN 
ITION TO * MINIMUM’ VALUES). 


INITIAL VALUE 
LOC TAG VALUE § RANGE FUNCTION 
1412 BEGPAT 10 1- 15 THE CODE FOR THE STARTING 
PATTERN. (IF A WRITE ORDER 
OR A WRITE CHECK ORDER IS 


TE CHECK DATA 


CIF IN '*BE ") 
1414 BEGCOD 5 0-5 as AL CORMEND FOR EACH DRIVE 
O = WRI 
1 = WRITE CHECK HEADER & DATA 


Se emetic ett ie tet mi ea i 
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4.3 


4.4 


.; ite HEADER & DATA 
= 

Ys eR 

5: HEADER & DATA 


1416 BEGSIZ 404 4 - MAXDL A a2 a 


SWITCH REGISTER SETTINGS 


at ts} 5 | treet 


S22 
aos 





«10> 
pp i oe 
SW «S> =1 PART IF ERROR, bo NOT Dis DISPLAY 
ECC My 
Suc =1 Grives we T aa NOT DEASSIGN 
SW«<d> =1 RETRY overs) 


ie ae 8 i ae DISPLAY REST 

=1 ING STARTUP. 
3) SO: 

We PROGRAM WL fh, ON_A_SHITCHLESS R (1.6. AN 11/34) 

fe ee tay N17e (8). THE sono 





Sieve Aer tied. frees 
Se AIREY in Weseled Te nd eT PR ME BINGE 


FEaaPY- Ee TSE wl eS cates PEM Eee 


DURING SWITCH ENTRY. 


REGISTER Pe’ Be USED. IF THE PR am oe AL ie. a ts 
Sor re fet BLL SUITCH REGIS Slt Be 


KEYBOARD COMMANDS 
THROUGH THE KEYBOARD COMMANDS, THE OPERATOR MAY ASSIGN DRIVES 


MO1 
P= {4.<0Z870-B, CULTI-OBIVE EXERCISER POM MACYLI 27(1006) 2b-NAY-77 11:01 PAGE 16 
FOR TEST ('T" COMMAND), WRITE AND CHECK DATA PACKS ('W’ COMMAND 


REITLY: FPO Sof BI oh ‘BesSSRatD onthe talc gee 
BEING TESTED, READING, OR WRITING (’D’ COMMAND 
AFTER HAS BEEN INITIALIZED, THE FOLLOWING MESSAGE 
WILL BE 
or a paren eee COMPLETE 
"TYPE A CONTROL C TO ENTER COMMANDS 


Se ee FURTHER PEER RED Ma eAE TF 
Stl URW a WE HVE a we 


BSI IY DRY NORE wl, 
A PeceerO, PRE Wis wn. mu 





THE 'T’, °W’, AND ’R’ COMMANDS REQUIRE ADDRESS LIMITS, DRIVE I.D, 
AND BAD’ LOCATION AOURESS ENTRIES FOR THE DRIVE BEING REFERENCED.’ 


“+ a WILL FIRST ASK FOR ADDRESS LIMITS WITH THE FOLLOWING 


"ENTER ADDRESS LIMITS FOR DRV 8N / RPOY’ (OR RPOS OR RPO6) 


THE PROGRAM WILL REQUEST VALUES FOR THE FOLLOWING ADDRESS LIMIT 
PARAMETERS. 


10 21 


mr a ee ee ti‘ $e Ce 
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4.4.) 


THE PROGRAM WILL SELECT 


BE RIF F's rdw EELS VF ho ne 
A OR 8 DRIVE Ve IDENTIFICATION on ENTRY NTRY dle ORME RRIE FRENTIPICATION ENTRY 


"ENTER 1.0. FOR DRV 8N:’ 


DRIVE OF UP TO & 

Aaterr's. pe! at oni ALONG WITH THE 

COINoTe CAARIAGE FETUR ee MPERIOD’ ONLY IER STRING, 
IN RESPONSE Yo" Met 


THE PROGRAM WI Mat KNOWN BAD SPOTS ON 
THE DISK PACK 6 ie oe TE, ORESSES OF 


‘BRO TRK/SEC AORS FOR ORV on #° 


OPERATOR MAY DECLARE UP TO 16 BAD LOCATIONS ON THE PACK BEING 
USED. THE LOCATION MAY BE AN IRE CYLINDER, A BAD TRACK, OR A SINGLE 
SECTOR. THE FORMATS USED ARE AS FOLLOW: 


FORMAT 1: C,T,S<CR> 
A. LL INHIBIT DA DATA ERROR ME S OR WILL 
‘enti are WHICH OCCUR AT Whe opecir IED ADDRESS, 
VALUE OF PARAMETER 'NOTPRT’. 
B. LEADING EROS Re NOT VROT REQUIRED. 
FORMAT 2: C, T<CR> 
a. FORMAT HE ENTIRE TRACK WILL BE 
we RNB Boba End Gx” Wo 
B. LEADING A 3 ARE NOT REQUIRED. 
FORMAT 3: C<CR? 


A. WHEN THIS FORMAT IS USED, THE ENTIRE CYLINDER WILL 
BE CONSIDERED BAD; DATA ERRORS WILL BE HANDLED AS IN 
B. LEADING ARE NOT REQUIRED. 
NOTE: CYLINDER, TRACK, AND SECTOR ENTRIES ARE IN DECIMAL. 
HE OPERATOR MAY TERMINATE THE BAD ADDRESS ENTRY BY ENTERING A 
PERIOD A’ ‘PERIOD INSTEAD OF A CARRIAGE RETURN oan’ fh cerrerrates niches 


*T’ COMMAND 
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4.4.2 


4.4.3 


11:04 


Onn ne fest 8 ES TOES) THE OTHER COMPANES Dalibs BRE CONVIENCE 
COMMANDS T corroS 


FORMAT: TN<CR> 


at had By my 0 10 7. 0R ’A’. ENTRY MUST BE 
TERMIN IAGE RETURN <CR>. 


Ee ES Oe x Reet RT MavaILAGUE DRIVES FOR TEST 


NOTE: pad 3 ee ae 


*D’ COMMAND 
USED TO DEASSIGN A DRIVE(S) BEING EXERCISED. 
FORMAT: ON<CR> 


N = DRIVE NUMBER. MAY aka ee ENTRY MUST BE 
TERMINIATED BY A IAGE RETURN <CR>. 


EXAMPLE: DO<CR> - GN ORIVE 0 
DA<CR> - GN ALL DRIVES BEING 
NOTES: 1. COMMAND REFERENCES A 
ORI VES NO “NOT Asst oeD THE PROGRAM 
ve NOT ASSIGNED’ 


2. THE DRIVES WI naempenees AS THEIR 


OPERATI 
3. I TESTED Hu, benesy i! Ni en 
Piet (1) ABOVE “WIC NOT 
aryl DISPLAYED 
*S’ COMMAND 


tot ol A PERFORMANCE SUMMARY TYPEQUT FOR THE REFERENCED 


FORMAT: SN<CR> 


= DRIVE NUMBER. MAY BE 0 T0 7 OR 'A’. ENTRY MUST BE 
TERMINIATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: SO<CR> - TYPEOUT PERFORMANCE SUMMARY FOR DRIVE 0 


SA<CR> - TYPEOUT PERFORMANCE 
FOR ALL DRIVES BEING TESTED. 


ee eee 
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NOTES: 1. Na ofepuavehe ONLY DRIVES BEING TESTED WILL 


2. *INTRVL’ IS NOT 


Hi Rei st FPS ARTS ov 


fe. ATE TOR 1205, AAO THE ORLVE 
1°: Au NOT Be YyPeD ae Rives PRE BING TEST 


4.4.4  °W’ COMMAND 


USED TO WRITE A DATA PACK WITH DATA ACCEPTABLE TO THE RPO4/S/6 MULTI- 
DRIVE EXERCISER PROGRAM. 


FORMAT: WN<CR> 


N = DRIVE NUMBER. MAY BE 0 TO 7 OR ’A’. ENTRY MUST BE 
TERMINATED BY A CARRIAGE RETURN <CR). 


EXAMPLE: WACCR> - WRITE DATA PACKS ON ALL AVAILABLE DRIVES. 
WO<CR> - GENERATE A DATA PACK ON DRIVE 0. 


NOTES: 1. DATA goenarey RPO4/S/6 FORMATTER PROGRAM 
(MD-11 /S/6 eC here & rag Oy 


THE 
. IR TTEN BT By i ete BRIG CARO CANNOT 3 rise 


PRE aes” 


> Bs i Same ES SARE FUT EE 


OR EACH WRITE 1S SELE 
ara: Sif Re ed Tee eT 


4. THE 'W’ COMMAND DOES NOT WRITE HEADERS AND ASSUMES 
THAT THE FORMAT OF THE PACK IS GOOD. 


S. COMMAND CANNOT BE STARTED IF SWITCH 0 (READ 
ONLY. HOE) 1s eis er; , TE Si Dy SET SET DURING THE 
ta th wnt 8 DRIVE PERFORMING THE 


6. A WRITTEN IS VERIFIED BY A 'WRITE CHECK DATA’ 
COMMAND 


rs ee 
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4.4.6 


$.1 


*R’ COMMAND 
USED TO PERFORM A SEQUENTIAL READ OF THE PACK. 
FORMAT: RN<CR> 


N= DRIVE YERER., a eR ake BT OR Be A ii seaaaes MUST BE 


EXAMPLE: RA<CR> - READ THE PACKS ON ALL OF THE ONLINE DRIVES. 
RO<CR> - READ THE PACK ON DRIVE 0. 


TE PROGR BALL PERE OR Yoke hic Be SeccehT AL 
ciriep BY Eyer RINT” TO. The BORESE SPecIF 
Be TEI 8 " IRIN THE READ WILL BE TAL. 
GENERAL COMMAND INFORMATION 
A. WHEN A COMMAND IS ENTERED, THE PROGRAM WILL TYPE OUT THE TIME 


B. IF THE one ee IS NOT VALID, THE PROGRAM WILL TYPE 
 INVALT "e 


C. DRIVES by B (WITH THE 'T’ COMMAND) OR DEASSIGNED (WITH THE 
’D’ COMMAND) MAY BE ENTERED IN ANY SEQUENCE. 


D. THE ERROR RESPONSES FROM THE PROGRAM ARE AS FOLLOWS 
RESPONSE COMMAND (S ) 


wi ier. Et 
a Restonen 
UNIT N NOT PRESENT 
?UNIT N UNSAFE 

?UNIT N NOT AN RPO4/S/6 


ED 


PERFORMANCE SUMMARY TYPEOUT 


ei THE PROGRAM WILL DISPLAY A ont ae avery FOR autora fcaty 
Sg ga T PERS_OR GOH Be, OTSA TED 

SUMMARY TYPEOUT CONTAINS THE FOLLOWING FIELDS: 
*DRV’ THE DRIVE NUMBER 
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ar na T Te, MESES OF SON IE 1 Bie icone BY i“ DRIVE 
a nas 3 Tor ATEN OND Baive 

am vee" 

NOTE: ae EM1 shat , EMS, & EM10 ARE NOT INCLUDED IN 


S.2 SOFT/HARD ERROR DEFINITIONS 
5.2.1 HARD ERRORS 
A *DTE’ (DRIVE TIMING ERROR) OR A *DCK’ (DATA CHECK 


"Be Ss Uae eee : 


THE RETRY SEQUENCE IS JE REROS AT TRACK CENTER AND 2 ATTEMPTS 
AT EACH OF THE FOLLOWING 
REUN/S RPO 
+400 MICRO-INCHES +200 MICRO-INCHES 
-400 ST CRO- INCHES Ms 4 RRo- Inches 
+800 HICRO- INCHES +400 HICRO- INCHES 
sig Meme vg tem ces 
+1500 RICRO- INCHES *800 RICRO- INCHES 
5.2.2 SOFT ERRORS 
A. ECC CORRECTABLE ’DCK’ ERRORS. 
B. ok” B TECH ERRORS WHICH BECOME ECC CORRECTABLE DURING 
¢. Hen ERD ERRORS FEES bate. READY & DATA, OR 
D. ‘DTE’ ERRORS WHICH CORRECTED OR WHICH BECOME ECC CORRECTABLE 
’DCK’ ERROR DURING RETRY SEQUENCE 
b. DATA CHECKING 8 ERROR RECOVERY 


6.1 DATA COMPARISON 


DATA COMPARISON OCCURS al wy *RODAT’ (READ DATA) OR *ROHD’ 
(READ HEADER AND DATA) OPERATION UNDER THE FOLLOWING CONDITIONS: 


A. THE ORDER TERMINATED WITH NO ERROR. 


em 
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6.2 


6.3 


6.4 


THE OPERATION TERMINATED WITH "DCK’ SET AND THE ERROR 

IS ECC CORRECTABLE OR THE SECTOR IN ERROR IS READ 

CORRECTLY AFTER RETRY ATTEMPTS. 
VERIFICATION OF DATA WRITTEN 
ReRoeRinte Sul Te CHECK Coteus <tr paeore eR Fab toek tS 1. 
(IF ’ * IS 0, WRITE CHECKS WILL BE PERFORMED RANDOMLY. ) 
SECTOR REFORMATTING 


Por Oue CAaee (Panaee Ton "FOweT™ Met eset a ucOd> 2B). 


THIS PREVENTS ERROR FROM BEING CONTINUOUSLY REPOR 
bata 

8: ae ees, 3. EMe4, EM2S, EM26, EN27 

C. TIMING 

D EM32 

E RITE TOECK ERRORS = ENoe EN2S 

BAD TRACK/SECTOR FLAGGING 


SINCE THE Pye yen DOFF T HAVE AN AUTOMATIC BAD TRACK 
ING CPRBIL Y, THE MULTI Ive ENERCISER ALLONS THE” OPERATOR 
TO 8 BAD TRACK/SECTOR L THE 
ASSIGNED FOR TEST. ae ETN 1 FN ah 


IF ONE OF THE FOLLOWING ERRORS OCCURS AT A LOCATION IDENTIFIED BY 
THE OPERATOR, THE PROGRAM WILL INHIBIT THE ERROR REPORT FOR THAT 


ERROR. 
DATA CHE (*DCK*) 
WRITE Greek ("WCE ) 
OPERATION I (*OPI’) 
DRIVE TIMING (’DTE’ 
HEADER READ (*FER’ & *HCRC’, *HCE’ & "HCRC’, "HCRC’) 


ST IgeLLY OPERATOR MAY REQUEST 


FLAGGED 
AREAS. TER ’NOTPRT’ AT Ree 

PROGRAM WILL IDENTIFY ERROR ERror heesaces ser f0 9-6 Sat pack THESE 
ERRORS WILL NOT BE ADDED TO THE ERROR TOTALS SO INTATNED BY THE 


ERROR MESSAGES 

DRIVE ARE REPORTED ON THE TELETYPE OR (IF AVAILABLE) A 

LINE PRINTER. ALL CONDITIONS ARE REPORTED IN ERROR MESSAGES; 
CONTAINS NO CODED ip t es RROR HALTS. THE HALTS 


(BSSURING OF COURSE THAT SW 8 NOT 1h ae AN UNRECOVERABLE 
CONDITION HAS OCCURRE A CENT PROCESSOR FAILURE HAS 
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7.1 


OCCURRED. 
MESSAGES ARE MADE UP OF LINES. EACH TYPE OF 


SEVERAL 
Safir eng Weare et ne 


ERROR DESCRIPTION LINES 
EM1, EM2, EM3, & EM12 ARE ALWAYS 

PFeSCaveD ON’ THe TTY, "THe Orie ne sone eSvant DISPLAYED D ON EITHER 

THE LINE PRINTER (IF AVAILABLE) OR THE 

(THE MESSAGE TAGS ARE GIVEN FOR REFERENCE. ) 


MESSAGE 
TAG TEXT 


EM1 RH11 INTERRUPT OCCURRED (RPAS=0) 
THE RH11 INTERRUPTED AND THE ATTENTION SUMMARY REGISTER 
(RPAS) WAS CLEARED. 


EMe UNEXPECTED ATTENTION OCCURRED 


Pe Orca ORI TUTERRUPTED BUT THE DRIVE WAS NOT 


EM3 MASSBUS PARITY ERROR (MCPE=1) 


THE RH11 DETECTED A CONTROL BUS PARITY ERROR WHEN READING 
THE INDICATED REGISTER FROM THE INDICATED DRIVE. 


EM4 MASSBUS PARITY ERROR (PAR=1) 


WEN THE RAI] LOADED TRE SPeCiFieD REGISTER. 


EMS ADDRESS PLUG CHANGE BIT SET 
THE ’OPE’ BIT WAS SET WHEN THE INDICATED DRIVE INTERRUPTED. 
EMG RH11 DIDN’T RESPOND TO ADDRESSING 


WHEN THE PROGRAM ADDRESSED THE RH11, NO RESPONSE WAS RECEIVED 
FROM THE INDICATED ADDRESS. 


EM10 UNCORRECTABLE MASSBUS PARITY ERROR 


THE PROGRAM HAS TRIED 3 TIMES TO READ OR WRITE THE INDICATED 
REGISTER. 


EM11 FATAL MASSBUS PARITY ERROR 
A CONTROL BUS PARITY ERROR OCCURRED WHEN THE RH11 ATTEMPTED 
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EMle 


EM13 


EM14 


EMIS 


EM20 


EM21 


EM23 


EMe4 


TO PROCESS A PREVIOUS, DIFFERENT PARITY ERROR. 
PERSISTENT DEVICE UNSAFE 
TO THE DRIVE DID 


Y GN T I DRIVE CANNOT 
Pantie Ree ee BS eG or noe 
OPERATION NOT COMPLETED WITHIN TIME LIMIT 


De rie OD Hy NOT COMPLETE THE OPERATION WITHIN 1 SECOND 
TION WAS INITIATED. 


UNIT WENT OFFLINE 
+h Oe NDICATED OPERATION. 
T WILL AUTOMATICALLY 
TDRiV OR MUST REASSIGN THE DRIVE 
RiTh ie 'T? COMMAND TO RE-INITIATE TESTING. 
NO RESPONSE TO PORT REQUEST 
THE PROGRAM IS TESTING A DUAL PORT DRIVE WHICH HAS NOT SWITCHED 
TO THE REQUESTING PORT WITHIN 10 SECONDS AFTER PORT REQUEST 
TO THE DRIVE FROM THE REPORTING PORT. 
HEADER CRC ERROR 
A HEADER CRC ERROR WAS DETECTED AT THE INDICATED DISK ADDRESS. 
THE CONTENTS OF THE HEADER ARE DISPLAYED. THE OPERATION WILL 
BE RETRIED 3 TIMES. 
DATA CHECK (’DCK’) ERROR 


OF TREC BBG Mase eee inf tare 


cone SECTOR IN ERROR IF THE ECC HARD ERROR (’ECH) B 


WRITE CHECK ERROR - DATA CHECK (’DCK’) SET 
HE DATA CHECK (’DCK’) BIT 


re ae ea ae A 
WRITE CHECK ERROR - DATA CHECK (’DCK’) NOT SET 


HORDE tach CaUseD Tre ERROR ARE. OLSPLAYED IN THE ERROR 


MESSAGE. THE OPERATION WILL BE RETRIED 3 TIMES. 
HEADER READ ERROR - ’FMT’ BIT DROPPED 
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EMeS 


EM27 


EM31 


EM32 


EM33 


EM34 


A aay DATA + * a DATA a. ee DATA WAS BEING 


“iil tD.* lelinaaitie 


guar TO EMe4, EXCEPT THAT ERROR oir 
PONITIALLY. THE OPERATION HELL BE RETRIED 3 TIMES. 


FORMAT ERROR (’FER’) 

FORMAT ERROR OCCURRED. WHEN THE HEADER WAS RE-READ, THE 
’HCRC’ BIT WAS NOT SET. THE CONTENTS OF THE HEADER ARE 
DISPLAYED. THE OPERATION WILL BE RETRIED 3 TIMES. 
HEADER COMPARE (’HCE’) ERROR 


SIMILAR TO EM2b T THE ‘HCE’ BIT WAS SET INITIALLY. 
THE OPERATION WILL TRETRIED 3 TIMES. 


MISCELLANEOUS DRIVE ERROR 


MG MESSAGE IS GIVEN FOR THE A ee ERROR BITS: 
"IXE’, "ROE’, *RMR’, "ILF’, OR 'ILR 


OPERATION INCOMPLETE (’OPI’) ERROR 


a arion INCOMPLETE ERROR OCCURRED AT THE INDICATED 


DRIVE TIMING (’DTE’) ERROR 


DRIVE TIMING ERROR OCCURRED ON THE INDICATED SECTOR. THE 
OPERATION WILL BE RETRIED 3 TIMES. 


PARITY (’PAR’) ERROR AFTER OPERATION STARTED 


THE PAR’ BIT WAS SET WHEN THE OPERATION WAS COMPLETED. THE 
OPERATION WILL BE RETRIED 3 TIMES. 


WRITE CLOCK FAILURE (’WCF’) 


A Awe OCK FAIL DURING THE OPERATION. THE 
RATION AIL WILL BE RETRIED 3 TIMES. 


INVALID ADDRESS (’IAE’) ERROR 

AN INVALID ADDRESS ERROR OCCURRED DURING THE OPERATION. 
WRITE LOCK (’WLE’) ERROR 

f onene OPERATION WAS ATTEMPTED BUT THE DRIVE WAS WRITE 
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EM4O 


EM41 


EM4S 


EMY6 


EMSO 


EMS 1 


EM60 


RH11 OR UNIBUS TRANSFER ERROR 
*TRE’ IS SET IN THE RH11 CONTROL REGISTER AND NO DRIVE 


THe ERR wl EES HL Hee UR 


BUS ADORESS OR WORD COUNT INCORRECT 


LE Se OOD A SUIS RESUS VE 


DATA COMPARE ERRORS - NO DRIVE ERROR DETECTED 
NO Suevsten ERROR WAS SIGNALED; HOWEVER, THE DATA DOES NOT 


CAN’T MATCH DATA READ WITH A PATTERN 
ie pare IN THE BUFFER DOES NOT MATCH ANY OF THE STANDARD 
PA ° 


ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RHI1 
THE OPERATION COMPLETED NORMALLY; HOWEVER, THE PROGRAM 
FOUND EITHER ERROR BITS IN THE RPOY SET OR ERROR BITS IN 
THE RHI1 

ECC LOGIC FAILURE 


ne The ONTENTS OF eyner THE ECC POSIT 1 on mectaren (RPEC1) 
ECC PATTERN REGISTER ARE fy 


ETB plUmeeR RLEGTrER REURRLHS SHIGEO” OF > 00H1 co 


BUS ADDRESS OR WORD COUNT NOT CONSISTENT 

Pe NL 2 TLS Phe 
COUNT REGISTER. 

SEEK INCOMPLETE OR OFF CYLINDER ERROR 


THE DRIVE SIGNALED EITHER 'SKI’ OR ’OCYL’ ERROR BITS. 
PROGRAM DETECTED POSITIONING ERROR 


A HERDER (HCE?) ; tee 
Faure PAE aE gar MP ule Lares 


DEVICE UNSAFE 


mm nn i ew we ee + 
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7.2 


THE (NDICATED DRIVE UNSAFE ERROR OCCURRED; THE ERROR WAS 
CLEARED BY A ’DRIVE CLEAR’ INSTRUCTION. 

DETAIL ERROR LINES 

THE LINE NUMBERS GIVEN BELOW ARE FOR REFERENCE ONLY. 


TT: TT: TT (DESCRIPTION OF ERROR) 
*TT: TT: TT’ IS THE TI THE 
WS STARTED, gU:TTTT 15 GIVEN IN HOURS: 


LINE 2 


"PRESENT ORDER = XXXX PREVIOUS ORDER = YYYY’ 
MNEMONICS USED FOR THE ORDERS ARE DEFINED BELOW: 


SEEK SEEK 5) 
CAL - BRATE (OCTAL 7) 

ae 

oe - 2 ar ees 17) 
aE sane 

TE a toca $1) 
WRI HEADER & DATA (OCTAL S3) 
“eu Cera COCTAL T 


WOKD = 

i 

ce - mR Te ciecK bata (OCTAL 63) 
RDOAT - (OCTAL 71) 

ROHD - READ HEADER & DATA (OCTAL 73) 


a qt a Sere ne ME 


SHi05) S SET, ONLY THE REGISTERS IN THE FIRST GROUP WILL 
DISPLAYED 


te einair tains anit 


*# ERROR AT BAD TRACK/SECTOR’ 


BE VANE, MB PRUE ICS DEO OORS Bl Be 
*NOTPRT’ MUST BE 0 FOR THE ERROR TO 


i 
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A WORD CALLED rgTatus’ Is DISPLAYED WITH THE OES PRSRESEED Bl THE 
ROOATE Dru le AABN REDHEADS RE Bll 
BIT 8 MEANING IF BIT IS '1’ 
S 
, TB iieo), BITS 14-9, 2, 1 SPECIFY TYPE 
DONE (BITO7=1); BITS 6-3 SPECIFY TYPE 

14 DRIVE IS OFFLINE 

12 PERSISTENT UNSAFE CONDITION EXISTS 

ll UNCORRECTABLE PARITY ERROR OCCURRED 

10 FATAL PARITY ERROR OCCURRED. MASSBUS CLEAR 

9 OPERATION NOT COMPLETED WITHIN 1 SECOND 


OUTSTANDING TIONS WERE RESTARTED. 
DONE - OPERATION COMPLETED 


6 DATA ERROR OCCURRED DURING THE TRANSFER 

5 WH FOR THE ' TRANSFER’ 
TEPCTOR OR DURING RECA TERATE OR OFFSET COMMANDS 

4 CORRECTABLE UNSAFE CONDITION OCCURRED 

3 DRIVE ERROR OCCURRED THAT CAUSED AN AUTOMATIC 

RECALIBRATE SEQUENCE 
2 PORT REQUEST TIMEOUT 
1 NON-EXISTENT DRIVE REQUESTED 


ERROR AT CXXX TYY SZZ PREV ADDR = CUUU TVV SW 


Rea helt CR, 


se ee a ne = ee ee ee CC 


eee ee 
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THIS LINE IDENTIFIES THE ADORESS WHEN TECTED; 
THE PREVIOUS ADORE Moorese IS aLS0 6 Gl VEN. CYLINOERS TRACK g SECTOR 
ADDRESSES ARE GIVEN IN DECIMAL 
LINE S 


START CYL = XXX END CYL = YYY 


THIS LINE IDENTIFIES THE STARTING CYLINDER OR A SEEK (IMPLIED) 
BNO THe DESTINATION CYLINDER. CYLINDER ADDRESSES ARE IN 

LINE 6 

START CYL = XXX END CYL = YYY ACTUAL CYL = 222 

THIS LINE IDENT STARTING CYL IMPLIED SEEK, 
THe DESTINATI EYETNOER, A te € TLINDER THE DISK SETURL Y 
STOPPED AT. NDER ROORESSES SRE N DECIMAL. 

LINE 7 


RPBA = XXXX RPWC = YYYY 


REET SPO fd "he Het WORY Poll 'RecHStEn’ thts CINE Ys 


START CYL = XXX START TRK = YY START SECTOR = 22 


OpeRANTOR. PEYLINOER, "Hinks AND SECTOR VALUES ARE DECIRAL. 


RPDA = XXXX RPCA = YYYY 


Ress Ete as ie ht oa Ope heb eve tnoeR 


ADDRESS REGISTER. THIS LINE IS NOT PRINTED IF SW<O0S> IS NOT 


BUFFER ADOR = XXXX SIZE = YYYY ACTUAL NUMBR WROS XFRD = 2222 


THIS LINE SIVe3 THE STARTING ADDRESS OF THE BUFFER UseD FOR THE 
CURRENT DATA NUMBER 


TRANSFER OPERATION, ITS SIZE, AND THE ACTUAL 
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OF WORD TRANSFERED. THE STARTING ADDRESS OF THE BUFFER IS IN 
OCTAL, THE SIZE AND WORD TRANSFERED VALUE ARE IN DECIMAL. 


GOOD DATA = XXXX BAD DATA = YYYY SECT POS = 222 

AND THE LOCATION aan fa p SecTOR OR OF THE RCTUA DATA.” THE SECTOR 
POSITION IS IN DECI 

LINE 12 


HEADER CONTENTS OF ERROR SECTOR = XXXX XXXX XXXX XXXX 
THIS LINE GIVES THE CONTENTS OF THE HEADER OF THE SECTOR WHICH 
GAVE THE ERROR. 


RPEC1 = XXXX RPECe = YYYY 


THIS LINE WILL BE PRINTED AFTER A gt te RETRY OF A SECTOP 
WHICH BECAME ECC CORRECTABLE DURING RETRY 


LINE 14 


ECC CORRECTABLE WITHOUT OFFSET 
THE SECTOR IN ERROR IS ECC CORRECTABLE; NO RETRY ATTEMPTS ARE 
NECESSARY . 


READ CORRECTLY AT OFFSET X MICRO-INCHES 
Te sec ron IN ERROR WAS READ WITHOUT ERROR AT THE INDICATED 
OFFSET VALUE. 


ECC CORRECTABLE AT OFFSET X MICRO-INCHES 
TE SECTOR IN ERROR BECAME ECC CORRECTABLE AT THE INDICATED 
OF ‘ 
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TION WAS PERFORMED ERROR FREE ON THE INDICATED RETRY 
aniener. 


UNCORRECTABLE AFTER X RETRIES 


THE OPERATION COUNT NOT BE ORMED CORRECTLY AFTER THE 
INDICATED NUMBER OF RETRY A TS. 


LINE 19 


DIFFERENT CRROR DURING RETRY 
RETRYING OCCURRED. 
a if Thus tite 13 P Lae fe prt , THE RHI TORPON REGISTERS WILL WILL ALSO BE 


LINE 20 





DATA COMPARISON ERRORS 
A PRINTOUT OF THE DATA COMPARISON ERRORS FOLLOW THIS LINE. 
LINE 21 


TOTAL COMPARE ERRORS = XXXX 


THIS LINE GIVES THE TOTAL DATA COMPARISON ERROR COUNT. THE 
VALUE GIVEN IS IN DECIMAL. 


LINE 22 


THE DATA COMPARED OK 


THIS LINE INDICATES THE RESULTS OF THE DATA COMPARISON FOLLOWING 
ECC CORRECTION. 
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ERROR BURST BEGINS AT WORD XXX IN DATA FIELD OF ERROR SECTOR 
THIS IS AN INFORMATIONAL LINE WHICH WILL BE PRINTED FOR 'DCK’ ERRORS 

WHICH ARE ant CORRECTABLE OR WHICH BECOME ECC leit eet DURING 
= IS THE WORD OFFSET VALUE FROM ’RPEC1’ AND IS IN 


LINE 2S 


ERROR WAS NOT IN THE DATA READ - 
ECC CORRECTION CAN’T BE PERFORMED 


THE DATA ERROR WAS NOT IN DATA TRANSFERED TO MEMORY. 


CONTENTS OF THE ERROR SECTOR (REPORTED ABOVE) 

IF SW<03> IS SET, THE SECTOR WHICH GAVE THE *DCK?, "DTE’ OR, 
"WCF’ ERROR OR "HARD? DAT CK ERROR IS PRINTED: THE 
CONTENTS OF THE SECTOR FOLLOW THIS LINE. 


LINE 27 


ORDERS: WH ERRORS: X WRDS XFR: YYYY WRDS READ: 2222 
THIS IS THE LAST LINE PRINTED FOR ALL NON-POSITIONING 

TYPE ERRORS. 

"ORDERS’ IS THE TOTAL NUMBER OF COMMANDS GIVEN TO THE DRIVE 
WHICH REPORTED THE ERROR. 


IS TOTAL ERROR COUNT om oe AND INCLUDES 
EVERY ERROR DETEC , REGARDLESS OF T 


"WROS XFR’ IS THE rOTR NUMBER OF WORDS WRITTEN AND READ BY 
THE DRIVE. 


"WRDS READ’ IS THE TOTAL NUMBER OF WORD READ BY THE DRIVE. 


ORDERS: Waid TOTAL SEEKS: XXX TOTAL POS ERR = YYY TOTAL SKI, OCYL ERR = Z 


THIS IS THE LAST LINE PRINTED FOR ALL POSITIONING TYPE ERRORS. 
REPOTED i THE fae NUMBER OF ORDERS GIVEN TO THE DRIVE WHICH 


ane Barve. IS THE TOTAL NUMBER OF SEEK OPERATIONS PERFORMED 
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*TOTAL POS ERR’ IS THE TOTAL NUMBER OF POSITIONING ERRORS WHICH 
THE PROGRAM DETECTED FOR THE DRIVE. 


Slate AY he BR et® THE TOTAL NUMBER OF ’SKI’ OR 'OCYL’ ERRORS 


PROGRAM DE DESCRIPTION 


PROGRAM OPERATION 


es Goeias Te eine cnn grey eT ae 
CONSISTENCY. RHI tad Wied 3 SET Tit KEYEOARD 


STE AROS RAE! Come EE ET nr cere 


THE PROGRAM SCANS ITS INTERNAL ASSIGNMENT TABLES, LOOKING FOR: 


SSR He Coane MTN aren essisere 
PERO TER, SELECTION 


4) DRIVES ING CURRENT OPERATIONS. 
THE PROGRAM CONTI SCANNING I ret AN ENTRY IS FOUND. 
IN THE CASE OF THE AT Te Stee FIRST ENTRY WILL 
BE MADE BY THE OPERATOR WHEN A (*T’ COMMAND). 


Te THe OPERATION Is A eee as 8 cKO es 1eneD BUFFER 
(WRITE 


Rate tat Hee arn 


rs a NIT iit nett F mi AT YL ee ADORESS OF 







CYLINOER 


THE ise a He 
ulig te as oe e 
OnIve Fie EF INOS TH Pina: ae ea ee 


We 


INTERRUPTING 
COnPrees THE POSITION OF THE bIsk WITH THAT OF THE DESIRED SECTOR. 


a a a i i a ee ee a me 
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IF OTHER DRIVES ARE WAITING ON CYLINDER, THEY ARE ALSO CHECKED 


INITIATED. | A DRIVE IS NOT Pals RENEE 2a 


AF 
OF I IT IVEN PRIORITY IVES WHICH HAVE 
* Bee Lowe S GIVEN PRIORITY OVER DRIVES 


WHEN THE DATA TRANSFER OPERATION IS COMPLETE, THE DRIVE REGISTERS 
ARE STORED Hal A DATA TRANSFER IS INITIATED FOR A WAITING DRIVE. 


ie Ua See eee BPFo wees fre Pali ous AGoRESs 


fo Ru im REGISTERS 
A THE 





THE DRIVE 
CTS AND 
ERRORS WHICH OCCUR ARE FOLLOWING ORDER. MULTIPLE 
ERRORS WILL BE REPORTED AS PrReT CHECKED. 


A. ERRORS REPORTED FOR OPERATIONS WHICH HAVE NOT COMPLETED NORMALLY. 
PERSISTENT UNSAFE Mad Ue EMl2 


UNCORRE' PAR - EMLO 

prrncsae Pathe Br” 

OPERATION NOT WITHIN TIME LIMIT - EM13 
UNIT WENT OFFLINE - EM14 


B. ERRORS REPORTED FOR OPERATIONS WHICH COMPLETE NORMALLY. 








HEADER PF 
PROGRAM DETECTED POSITIONING’ ERROR. - 


ota bi it pcK eT oa 
el ERR EGE 
oP 


a Dts Bi 
MISCELLANEOUS VE ERROR - EM30 
C. ERRORS NOT FLAGGED BY THE HARDWARE ERROR DETECTION LOGIC. 


BUS ADDRESS OR WORD COUNT INCORRECT - EM41 
DATA COMPARE ERRORS - NO DRIVE ERROR DETECTED - EMHe 
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8.2 


8.3 


CAN’T MATCH 7 READ WITH A PATTERN 


Fee coete PAILUnE Pie SUL ERROR SIGNALED BY THE RH11 - EM44 


OR WORD COUNT NOT CONSISTENT - EM46 
DUAL PORT OPERATION 


DUAL PORT OPERATION IS NEARLY IDENTICAL js Bu THE OPERATION DESCRIBED 
IN aan ee ARE IN SEQUENCE INITIATION 


vi VER] THe DRIVE RECEIVES 


CE ced 
ee ea 1°: 
a ae ORIVe _I My eat Bt fo IF THE 


Gk aa PST, Shee eResoOh Wee NEL Yo. SEES pr 


WHAT THE ~ T T T 
pe cian svorent ie ALL TIMES TO INTERPRET THE 


A DRIVE HAS COMPLETED AN OPERATION, THE PROGRAM WILL STORE 
THE REGISTER AND I a’ ’ TO THE DRIVE: IF THE OPERATION 
TERMINA TH BN VE WILL NOT BE RELEASED UN 
ERROR NG HAS BEEN COMPLETED 


SINGLE PORT DORI DRIVES WHICH 


PEN el TEA PEC. 
SFE RSDP E mae. coormOS 8 Wo Fncrowe 


SELECTION OF OPERATION VARIABLES 
A. SECTOR 6 S SELECTION IS RANDOM BETWEEN THE VALUES IN 


eer its eg, ca ge 
SELEC ee: a a "MAXCYL’. IF A MINIMUM 

’ ° ’ 5 
aire " anti Read atic 
0 + SgLECTION go SELECT FROM AMONG ADDRESSES 


=e 
wi 
a 


3 
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B. TM SIZE SELECT BG HHT PRE 


A PATTERN FOR DATA COMPARISON 


C. De ate sagt 1 soo Re henine 3 ik 
EN el PEREORNING 8 RITE 
lain XPECTS 


F T THE KEYWORDS 

CHECK HEADER DATA ORDERS ane PERE OPED ONLY TF TNE PREVIOUS 
Eee tee ET Hatta aoSeee cEN Tee ote an 
Seo Ibaae Tee proura afte oT Ona FULT SECTOR FORMAT 

E. THE FIRST T ORDER, PERFORMED AFTER @ UNIT IS ASSIGNED WITH 


FoR’ THe EyRGT OPERATION ARE THE RINTRUR OR STARTING hg porggeres 


DATA PATTERNS 
TS ONE OF THE FOLLOWING Re BUTE ErER 19 F 4 WRITE 


HET Rod SEL Re TER REE lh Ne 
ae i Sat ed ub aie il 


D PAL ONE'S PATTERNS: HOMEVER, AL ZERO’ 5 WO 8 
PATTERN '8’ IS DEFINED AS THE ’WORST CASE’ PATTERN. 
PAT 1 PAT2 PAT3 PATY PATS PAT& PAT? PATS 


O2645S 165555 


Eee 

ce 
fae 
ae 


mr eee 
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SORE PEASE RAS 


eb bs be bo be 


1786 





037777 140000 
100000 


PAT 9 PAT PAT 10 


SRW 


RRS ORRERRNRART 


177777 156735 125252 170360 151322 133333 
000000 16 OS2eSeS 007417 gees 165555 
77777 170360 151322 133333 


| 
ms 





1 
1 1 
i ee 135555 
1 1 177777 
1 7? 177777 
ae ae 
isssee reece teemae [00070 
tec | a ieee 
{3azee 155525 PeRRRS 155508 
155555 177773 066667 17777? 
ieeeee Tree 155999 
TITLE WO- 11 Ozh 0-8 RPO4/S/6 MULTI-DRIVE EXERCISER 
:#COPYRIGHT (C) 1975, 1977 
: #DIGITAL EQUIP IPMENT CORP. 
; HMAYNARD, MASS . 01754 
j PROGRAM BY C. HESS 


puke RATNDES-1 1 ByOAECa). os Sea” Nmaeelicctiatan 


‘arte OPERATIONAL SWITCH SETTINGS 


-# 

is SWITCH USE 

i. 13 Tare TYPEOUTS 

is ? DISPLAY DATA COMPARE ERRORS es) 

is : B. PART LAL REG] Rte Bjset hv tr 

te B. NOE TION RESULTS DISPLAYED IF ERROR 

te 4 A. DO NOT CHECK FOR MAXIMUM ERROR COUNTS 

te 8: DO NOT DROP DRIVE WHEN NORMAL END OF TEST REACHED 


rn nn se ee <o —— 


e 


bosTeclecToclestecTeclesTe eles] 
be bh bb bh be he he he 


ee ee ee ee ee ee Be be he ee Be be bn Be be be ee ne ae ae ae ee ee Be ae ee be ee he ee ee pe 


Bes TeRT ORAS BOAR A PONS Bee NO eS 
={= 


a i 
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° 'T Y 

NH 1, ie COMPARSION AFTER READ ORDERS 
Y MODE 

-SBTTL BASIC DEFINITIONS 

ASINITIA, fore ss OF THE STACK POINTER ### 1100 ### 


-EQUIV ENT, ERROR ;;BASIC DEFINITION OF ERROR CALL 
“EQUIV IOT; SCOPE ;;BASIC DEFINITION OF SCOPE CALL 


; #MISCELLANEOUS DEFINITIONS 


3: BARELY RRR SEPTORLEE Bnet 
# C. IE DATA & SW7 SET, DISPLAY 

i 2 A. DON’ TATUS WHEN PROGRAM STARTED 

3 # 

;# 


eiSicieiiaisisiop tnt 


0 
1 
5 000011 T= Il § CO0E FOR HORIZONTAL TAB 
4 000012 LF= 12 eg FOR oe tae Ree RETURN 
; ES Bre Mo FB BIA TUR ve reo 
? 177776 PSs ny be pee :  BROCESSOR STA 
5 177774 eFKLHY fe ACK LIMIT 
eae ping 127778 fe INTemRuPE Requesr recrsten 
177570 DDISP= 177570 HARDWARE DISPLAY REGISTER 
po0000 * pesca spatter rECISTR Me Recisrer 
000001 Riz xd +t CENERAL REGISTER 
oooog2 R2= 33 
Saas = 2 ieee Recere 
000005 = “8 ; | GENERAL REGISTER 
00007 Res 3 Sere 
Pc be) He SOUNTER 


; #PRIORIT 


bats ‘ges ~ ERIE tA | 
$3 aa 
300 





g 
5 
gRa8s 


PRY= 
Bites Pie 
000300 PR6= Hattciey LEVEL 
000340 PR7= 340 PRIORITY L 
ix SHITCH REGISTER” SWITCH DEFINITIONS 
100000 GuiS= 100000 
040000 Swi4= 40000 
yieerd aut3s p00 
1 004000 autie 4000 


ne - 


——— —— . _ < a ee - - 
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18S2 002000 SW10= 





2000 
1853 SwO9= 1000 
1 
1858 SwO4= 20 
1859 SwO3= 10 
2 : b 
1 -EQUIV SHA 
1864 “EQUIV Swe 
ies Be Bee 
Bo “EQUIV SWS 
268 “EQUIV SWO4; SWH 
a -EQUIV $HO3, 
-EQUIV SHOe, 
HE ae 
#DATA BIT DEFINITIONS (BITOO TO BITIS) 
100000 


Pawnee 





nese 


= SRABEERE 


= 


000002 


ond 
: 
mines 
ee 
<< 


4 
2 
. 109, 
"Ea Grto9.8 
1893 -EQUIV BITO7,BIT7 
1894 “EQUIV BITOS, Tb 
1 “EQUIV BITOS; 
| HY 
1 “EQUIV BITO3;BIT3 
i cay Glare 
1900 “EQUIV Bt 700’ BI TD 
, “CPU” TRAP VECTOR S 
ise 000004 iRBvEES 4 R eRe OT AND OTHER ERRORS 
1904 000010 RE VEC= 10 +s AND ILLEGAL INSTRUCTIONS 
1a ae vervee 14 H TRace TRAP 
tape s ee 
1308 weet BPTVE > {4 : BREAKPOINT TRAP (BPT) 


a a ee em ee 


ce 
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1908 IOTVEC= BARE 8 Bie (ia TRAP (IOT) ##SCOPEs# 
rth BBatSd bRAP CENT ) ##ERRORS# 


ores a TRIMERS. VECTOR 


; sikeneeaneniaeeenainNNmnt 
-SBTTL RH11 REGISTERS 

5 RAI 8 2 9 9 9 0 A a A a 
;CONTROL AND STATUS REGISTER 1 (RPCS1) 


OWWDOWDOWWD wD 
a 
WOnNCW CWT — 





oy: iB IN AEIT BZD scones ot 

Alb= Bt pOORESS BIT (BIT #8) 
Al7= = 1000 pany SELECT (GIT. UD SS BIT (BIT #9) 
feb:  Spp00 ITY eRAOR (BIT #13) 
TRE= 40000 STRANSFER ERROR (BIT #14) 

;SC= 100000 ISPECIAL CONDITION (BIT #15) 

; GISTER (RPMC) 

t(EACH BIT IS CALLED BY BIT 


;CONTROL AND STATUS REGISTER 2 (RPCS2) 





USiz 1 UNIT SELECT (BIT 80) 
USe= é * UN I cr ( I 81) 
Bate 10 : : INHIBIT (BIT #3) 
PAT= 29 : PARITY TEST (BIT #4 
CLR 40 : (BIT es) a 

at tft: Bey GAT 

p Wes in BUS PARITY ERROR (BIT a8) 
= ° 

ec = 2005 i PRBGRN eatt ry 
Nee NON ExT ee (iT etek. 

ever UPE= Bed *UNIBUS PARITY et hs ) 

100000 DLT= ipppo0 pS sRETE Late (BIT #15) 
DATA BUFFER REGISTER (RPDB) 


:(EACH BIT IS CALLED BY BIT NUMBER) 


5p RERRERERELE RELEASE RELA LALELELE LARA LEAR LE LEA ERA RE EERE RE LE LE EE 


eas ee De a Bt be bs Fe ht Fe be me eh a bt pe de mn ee = pt ee Be be pe b= be bs Pe Pe be be Re be pe 


PEPER LARA GR Be sere Soares see S te MONE oN 


| 
j 
| 
| 
| 
| 
! 
! 
| 
} 
| 
| 
| 
| 
| 
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1964 
1965 


1 


1969 


Pet fe 


PERK BESSY SIS S05 


oe pare bo bs bas pas ts a fe 


PRPE RE REER 


2 


Be Spa gan eS 


2010 
sais 
a 
2014 
e015 
se 
2018 
2019 


pe 





i040 
004000 
ooo0d2 
a 
000040 


SEEEEESs 


me 


1 


Bis 
Ba 
rubeee 
“11,,*.7.* 
00000 





-SBTTL RPO4/S/6 REGISTERS 
5 EHH 8 EHH JHE HEHEHE 
;CONTROL AND STATUS 1 REGISTER. (#00) 


Fls ; 360 ct (BIT 80) 
EY le 
FS= Fi if COD 8S 

DVA= 4000 ;DEVICE AVAILABLE (BIT #11) 


-OFS= 1 DRIVE FORWARD S"/SEC. (BIT 80) 
OFF20= 2 ;DRIVE FORWARD 20°/SEC. (BIT 81) 
DIGB= 4 DRIVE T GUARD BAND (BIT #2) 

= 10 : (BIT 83) 
OL64= 20 : THAN 64 (BIT #4) 
DEl= 40 :D 1 (BIT 85) 
VWs 100 3 I 86) 

= 3 BIT 87) 

a : (Bleegs 

@ 

LST= 2000 q me TRANSFERRED (BIT #10) 

= 
Hors {BR Bo : Tin ie" wt si2) 
PIP= 20000 

1 


REGISTER #01 (RPER1) ane 





’ 
ILF= T (BI 
ILR= : REGIS (BI t 8) 
RRs 4 ae baer Lars REFUSED (BIT #2) 
Fens Bo : ? 
= 40 ; WRITE fone FA 
Aces BOO ih 
HCRC= prin 
IAE= 208 iIN 
WLE= 4000 eR IT 
OTE= 10000 ;DR ieee 
Ones 90000 {an Ince TE 
OcK= 100000 ‘DATA CHECK ERROR ( BIT 1S) 
;MAINTAINABILITY REGISTER (RPMR) (803) 
OMD= 1 ;DIAGINOSTIC MODE (BIT #0) | 
MCLK= 2 *MAINTAINABILITY CLOCK (BIT #1) 


me 


+ ee ee Ce ee ee ee ee eee 


rc eee ee + ee ee et ee 2 ee ee — - o c2e— <== 


MO3 


BAT ERI BHM OO MELO ATT OL Pe 


a a ee ee ee 


os --- - =i 


_- 
— 
as - 
bod ~ ania tand | 
- be — 25 = 
oO _ es 
a eee 
~ | od ot 1 
“—UMT iNoOr wo = Fa ara TI 
et et et et ee 
See eter - pe 


— Ee Ss42z2 ome penile 


a= Cotton) 
- lepleplenteslentan iid ijooen cococo 
Cee 0004 4 414 PS SS SS 
ess MOOMOOOuwuwuu 
~ et et ee et et et as9a9 
— 


peat ttt SS 
5 ERR RRR REE STS mieieinte paaeee 


2 
8 
= 
zs 
=] 
23 
aa 
= 
= 


oe 


;DESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA) (80S) 


; (EACH BIT IS CALLED BY BIT NUMBER) 


;DRIVE TYPE REGISTER (RPOT) (#06) 


;ATTENTION SUMMARY PSEUDO-REGISTER (RPAS) (804) 


sa REGISTER (RPLA) (807) 
;RPOY ERROR REGISTER #2 (RPER2) (#10) 


f 
AT 
a 
J 
’ 





Se 


q SRR NRNE RHUREUN CRORR EMER RRR ER MR OG EER cee MER eR MRR 


ed 





EE EEE 


11-DZRJD-8, /S/6 MULTI-DRIVE EXERCISER MACYI1 27(1006) 26-MAY-77 11:01 PAGE 43 


Pl eNRAY=7? 1104 RPO4/S/6 REGISTERS 
Bet Sie 


; TRANSITI ECTOR FAILURE (BIT #5) 


? 


ger § 


ale - 
+ 
Ti? = 





ia 





OR REGISTER #02 (RPER2) (810) 


BNP eri Geel 


UNSAFE (BIT a3) 


= ane ri type (BT 


ite ee ak #10) 
#11) 
BLO (BI #12) 


Reger rs 





saa6*"" & 


oO 
-— 


a GhoeeR ONE EES ; eGRnereraee eee 


BeBeee 





;OFFSET REGISTER (RPOF) (#11) 
oe oe | ra Bre ees 
appaiG treo Ip va oo3 flees eel it ) 
OF800= 40 : OFF Ty gon RIGRS INCHES (Bit 9s) 

OFREV= 200 SOFFSET NEGATIVE (REVERSE) (BIT 8S) 

Hcl= 9000 IMATBIT (BT 810) 

Elz 4 te CTION CODE INHIBIT (BIT #11) 

FMT22= 10000 tFORMAT BIT (BIT #12 





;DESIRED CYLINDER ADDRESS Hg yo (#12) 
;(EACH BIT IS CALLED BY BIT NUMBER) 


iCEcH BIT TS CALLED BY BIT NUMBER) 


;SERIAL NUMBER REGISTER a, (#14) 
; (EACH IS CALLED BY BIT NUMBER) 


;RPO4 ERROR REGISTER #03 (RPER3) (#15) 


Tororururororororu ru foruforurururorofu rororurororororv fororu ru 
BBSBRRPSREV Se Vensow-SSBIRR IBA 


Beh = bee bs be Be bs bb bb bb tb bb bs bh bb tm be he he 


w 
ray 


a en ee. er —— 


BO4 


—_— ee ee  -  e e--  e- - e  e 


/WRITE (BIT #3) 


v_- 
oOo - 
“— w 
~ s.lUlU et 
8 nt ~~ — SE ~ 
7 > -~ =z [—) 
4 “4 Ss th 
-2 s- CO See ¥ 
Lam wm -— ~~ @ 
ae 4 ~ -~ 
~~ ied @ to = a 
a a @ - 
—' et ol 9 — ~ 
L amd oO = 
= [vv ° 
of 
— 
— 


GISTERS 


776 CONTAIN A “.+2,HALT™ 


;READ HEADER & DATA 


eo 
zi 


BOOSTS TNT 


hh a ad th td Hh ot ee 


REGISTER ( 


29888 oh 


poste Baker ag teres 


’ 
a 
’ 
’ 
’ 
a 
GISTER #03 (RPER3) (815) 
’ 
’ 
’ 
’ 
’ 
’ 
; 
; TI GI (RPEC1) (816) 
HTERcH BIT 15 CALLED By BI? NUMBER) 
Ce) (#17) 
BIT NUMBER) 
| JHHINHHHHHIHHHHHIMIHIHHHIHHHHIHIHHIHHHIHHIHHIEEHIIEEHHIEEE HIE HEE Eee 
5 HEHEHE HEHE IHIEIHHEHIHEEHIEEIHIIEIEH EEE EE EEE ae edt eat 
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.SBTTL RPO4/S/6 DRIVER COMMANDS 
;#ALL UNUSED LOCATIONS FROM 4 - 


.SBTTL TRAP CATCHER 
=0 


TI-DRIVE EXERC 
PSU= 
VUF = 
UWR = 
ACL= 
OCL= 
BCL 

YL= 
;RPOS/6 
ACL= 
Opes 

= 
SkI= 
OCYL= 
sE 
s( 


11:04 


or EERLERE EEE SQMBAIMN ANAT PP ARSBEL : 
Ef : 5 Be BeagegqpeSEEEHEHES 


- 
“~ 
* 


: SREB BRS s PSF PPS PT RANGHRRTRASSISSSLGBORN ARERR RR Baw wo ooo 


-_ 
md 


? 


aban bn beta ban ban bon pnp bata hn t-at-o}-ah-—b-a}-ahnb-n}-a}-a}-n}an bon }on ban bonton boston boston don ton ben bon ten ba bantu ton bon bata dn batnbatnd-apntn babes 
fucucucuCUCUCUCUCU CUCU CUCU CU CUCU CU CUCU CUCU CU CUCU CuCuCU CUCU CucUucuCU CG cucu Cu CucuCU CucucuCucuCucuCcucucucucucucumtum 


—~— +e + - i ne ee ee +e -- 


ee re ee er me ee me me mn 


BBSRRLSG BBB 


rururorurofururoreruroru 


aaaseRee 
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HRCBGATION CONTAINS 0 fo CATCH INPROPERLY LOADED VECTORS 


Ue HE tiSSeTiiae SArree nce tstce 


-SBTTL STARTING ADORESS(ES) 
ye Satin” «= ibiwance THe tly UnbuS AOoRESS 
AFTER INITIAL START 
-SBTTL ACTI1 HOOKS 
Vesey sori ar" “yam Rene coer cONaRER i 


HOOKS RED BY AC 
"Sires. SAVE PC 
$5100 :;1)SET LOC.4%6 TO ADORESS OF SENDAD IN .SEOF 
"WORD 40000 s2)SET Loc.52 To 40000 
" =SSVPC RESTORE PC 
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-SBTTL COMMON TAGS 





¢ 
+ 
+ 


HHINTERRUPT RODE. INDICATOR 


2208 
$510 AD bebo 55-boh- toh -b-ed-b--tehehahet-b-b-b-teh-tel-d-teleh-teleh-t-5-$-4-$-d-iabal-d-4-4-4-I-tel-talalelalaleialalaleiel 
if *#THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
ele : IN PROGRAM. 
$315 i TAG: 9 si eTrer OF COMMON TAGS 
gi i ict Ee 8 SSS Ceara” 
os ie 
Try : : i + ONT a CTED 
TIK Rr: 8 sls BEE 
224 SERMAX: 1 ;;CONTAINS MAX. ERRORS PER 
ss be Ee af rane. gyprzo 
$ ‘3 A 
ooo4 Seppat; o i canal "BAD? pare 
0 TO BE USED 
08 5 
0 
bots 


FREGIURALHSELHSRRERSRERGS HeVSRZ BRSS 
eeaee 
ROARS STEEN & 


1 SkR 36 TCH REGIS 

B ep i DORESS OF DISPLAY REGISTER 
1 & s;1TY a 

1 $ ;;1TY 

' & 4: 


3385 


paper 
Fa 


: CONTAINS pu RacTeR PO ETE 

;; CONTA FILLER CHARACTERS REQUIRED 
331 I . AFTER A “LINE FEED" 
He NAL AVAILABLE” FLAG (BIT<07>=0=YES) 
207) <377><377> 3; OR BELL 


?/ MARK 
+ ER Ace RETURN 
; (12) * 21 INE FEED 
© BREA HHHEHHEHHEEHHEHHHEEHHHHHHHHHHHHHHHHHHHHHHHHHHHHEEHEH 
= 


aage 
mann 
PaEr 
bb A 
~~ a Tate 


SESSSRSESSSSRSSSSSSSS8SS887 8888888 
oF 


Dot Bes be foe et Pt ba bt 8 ft a ee Be bm Le et pe em hot pes fee be be pee 
oe ee ee = 0 = 


G3 B. 
—— ee 
mu ru 
~ 

_ 

ru 

w 


aa aa uae eee Eee RSS 
3 


001170 176700 SRPAOR: 28 174700 GB One "iid REGISTERS 
DOLIIe yest ek csi : Hono 17302 tADOR OF KiLL-P COUNTER BUFFER 

Soione fen Hate rics 13s + ADDR or Muttc? SFat0s REGISTER 

bole 00108 sive: ico” SADOR OF KW 1-L VECTOR 

Bpisie 99997 CrKeCG: “WORD = 30> TE Avdtock ts AVATCABLE 

Bae Bee Ri, Sy’ alight tine 8712 TO 
001216 50000 PACK: WORD 0 a conan ICATOR 


3 


PERLE cet eee TER URE REE PALER ERABERRRKiG dod 


- i 


ROSSA 
WONOWSWMe-O 


04 
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: 
3 


0,0,0,0,0 ;OPERATOR ENTERED DATE 
0,0,0,0 ;OPERATOR ID 

rd ha T 1-5 8 
inttW Rec prowl Emmons j-6'8 10 
:ORI rear FOR PRINTOUT 


RLY Th THE LOUER BYTE 


ir Su" Si 
ah 
g 


: ye* 

: ST (MAXIMUM - 999.) 

; ra (FOR ONE SECOND) 
Ml 


oO 





TA COMPARE ROUTINE 


SRBSSSSSE88 SSSSs8e88 
— er 
BHINSRERERS RARERSRRS 


Oo 1 OOOOOCoOOW BOCOO 


_ 
3 
6 
— 
ps | 


: 
SSSSSSUSSGGRa7SSS008 3 SSSSSEEEEES TREES 5 





’ 
iF > 6, NG ’DCKER’ OR CAN’T MATCH PATTERN 
‘IF << 0. ION FOUND 
001301 000 0 inisconPaRS OH oR CANT MATCH PATTERN FLAG 
001302 900000 0 i ove Rl ae . 
001304 o00000 0 : 
001306 O00000 ERCTR: 0 : OF 
001310 o00000 LIMIT: 0 :DI LIMIT 
001312 900000 CMCNT: 0 : Count 
001314 000000 CMCYL: 0 sCYLE 
001316 000 CMSEC: 0 SEC oR 
131 000 CMTRK: 0 Finck 
001320 00000 ECBIT: 0 : T OFFSET 
001322 00000 ECSEC: . 0 : (RELATIVE TO SECTOR) 
001324 00000 ECMSKO: 0 *CORRECTION MASK FOR FIRST ERROR WORD 
001326 O00000 ECMSK1: 0 : CTION FOR SECOND ERROR WORD 
001330 00000 ECWRD: 0 LOCATION OF FIRST ERROR WORD 
001332 ECGD: 0 3600 iaeiaet WORD 
eane CBADO: 
i aye 0 LOCATION’ OF CONG ERROR WORD 
001340 ECGDI: 0 : DATA, SECOND WORD 
001342 ECBADI: 0 : BAD bara WORD 
001344 SECLMT: 21. SECT Raoaese /RINTT 
001346 TRKLMT 18. ADDRESS LIMIT 
001350 CYLIMT 410. : CYLINDER AOORESS LIMIT FOR RPO4/S’S 
(CHANGED TO 814. FOR RPOG) 
5p RARER EERE EEE REEL EASA RE LEER ERLE EE EERE RELEASE EEE EL EEE 
.SBTTL COMMON PARAMETERS 
5p RERRARELERELE RELEASE ERELEE ELE LE RELA LE RE LEER RA EERE EEE EEE EEE EEE 
PROGRAM USES THESE PARAMETERS TO DETERMINE REGULAR END OF PASS 
0013S2 002740 ENDCN: .WORD 002740 :1.875X10t8 WORDS (10) (3X10t9 BITS) 


a ne —-—— - 


ave eee Pw A | 1 acta DENIS, pret £2 (1006) ot 11:01 PAGE 46 


2320 001354 OOSYSS .WORD OOS4SS 5 MSW 
g35) 991358 443300 ENOSK: - HORD 443300 ia.x 10t6 SEEKS (LSW) 
2323 “PROGRAM USES THESE PARAMETERS Tb DETERMINE @.V. END OF PASS 
eae 901 QVCON: -HORD jeder 52, 9437K1047 WORDS (10) 
232 001366 134330 QVSEK: . 34330 '3. 75 X 10S SEEKS (10) 
$367 001370 0000S ; 
: THE TO INE END OF PASS ARE LOADED IN HERE BY THE PROGRAM 
2329 : THE Finst TNE. THR , THE QV TERS ARE USED, AFTER THAT THE 
2330 * REGULAR ARE’ USED. 
2331 001372 oo0000 ENDCON: .WORD 
cn oles Guo eOseK: (HID 8 
BBLS BEE : 

23% 001402 000001 PASCNT: .WORD 1 ;NUMBER OF PASSES TO END OF TEST 
2337 001404 O00000 MAXDL: .WORD 0 : MAXI TA TRANFER SIZE IN, 
2338 : (Fy AT HOR BY OPERATOR 
5346 00140 O01 100 MAX IMUM mio 
an cathe oo0000S 00000 OR “ORD 5,0 maar S THE Poo MANCE TYPEOUT INTERVAL 
ewe : oe SECOND WORD IS THE INTERVAL 
saa : . UPPER BYTE Is. 1S VALUE 
2345 001414 OD0004 CMPLNT: .WORD 4 NUMBER OF COMPARE TYPED OUT 
234 001416 000001 FORMAT: .WORD 1 IF NOT “so ALLOW Zo A ORDERS 
2347 :TF EQ o, NO RITE + "Bate ORDERS 
2348 001420 oo0000 WCSEL: .WORD 0 sIF 9 1b 10 WORD COUNT 
S34 :IF het EQ TO 0 ay THE VALUE IN ’MAXDL’ FOR 
532} 001422 900003 RATIO: .WORD 3 E WORD COUNT [RANGE 0 - 7] 
2353 IER CREADY WRITE) 
2354 -] A 
§30P i§ - 4: 
3368 ie ys 
2359 B= § - 2/6 
a 001424 000001 AUTOCK: .WORD 1 ; IF wer EQ. DO AN APPROPRITE WRITE 
si i tbe i eit 

IF E cT WRI RS 

001426 00000 TPRT: .WORD F T 

ee 3 ieee dati PUL ae BEE A 
2368 ‘tr TOT. E 90. NT ERROR MESSAGES RELATING TO 
a 001430 000001 ENDET: .WORD 1 ‘IF Phe vp et: TERMINED 

IF od Bee RMINED 


: BY THE SEEK COUNT. 
. PERLE RE REEL EE EERE LEE EERE EERE ERR RA AREA REE REAR ERE EEE RED 


a33 


em 


MD-11-DZRJD-B, RPO4/S/& MULTI-DRIVE EXERCISER 
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001436 


"24-MAY-77 


oc0404 


Bee Gee Gee Gee Se 


tie: 


MACY11 27(1006) 
PARAMETERS 


04 
26-MAY-77 11:01 PAGE 49 


-SBTTL VALUES FOR FIRST OPERATION 
5 5 JHMIHHHHIHIHHHHHIHEHHHIEEHIHHHHHIHHIHHHHIHIHIHHHHIIEHHHEHHEEEHE 


BEGPAT: 
BEGCOD: 


BEGSI2: 


- WORD 
- WORD 


- WORD 


10 
S 


404 


pra eg 


THe | SECTOR, THE 
ZE_ MUST ALLOW F' NG 4 OR'S 
SWORDS INTO THE LAST SECTOR USED. 


5 5 RRRRAAREA REESE LEELA E REELS REE EE EEE EERE EEE EEE E EERE EEE EEE EEE 


-SBTTL TABLES, CONSTANTS, 


AND VARIABLE LOCATIONS 


5 ESSE 8 46 46 08 0 9 
0,0,0,0,0,0,0,0,0 ;LIST OF DRIVES PERFORMING COMMANDS 


ORDER@: 





ceaee 
UU 

000000 

000000 


- WORD 


: .WORD 


- WORD 


0 


0,0,0,0,0,0,0,0,0 


0,0,0,0,0,0,0,0,0 


0,0,0,0,0,0,0,0,0 


0,0,0,0,0,0,0,0,0 


0,0,0,0,0,0,0,0,0 


;A BIT SET IS AN ASSIGNED DRIVE 
;ADORESSES OF DRIVES TO BE DEASSIGNED 


;ADDRESSES OF NEWLY ASSIGNED DRIVES 


;LIST OF DRIVES WAITING FOR BUFFERS 


;BUFFER ALLOCATION TABLE ENTRY COUNT 


;LIST OF DRIVES WAITING FOR BUFFERS/PARAMETERS 


;LIST OF DRIVES WAITING FOR NEXT PARAMETERS 


HO4 


OnuMTw oT 





satay 
SSSSSSESESR = = 
SSSSSSES S : 
seems Fs yy Fes 
aR adxadadad s¢ 2 5 e¢ 2 
: eermemes 2 Ei ee 
ee 
= codes x OxEreeroor 
E ee Bas bee 
ta 
a 
s2 SEUGEESE oF 
ag SSSSSSSEESSSII = 
ge SSSSSESSSSSEEESSES" SSSSS8E8 ECEEEE Ecicccccosscncces 
wn & 2 - 
2 ; pa kl 
y 
: 
zi : 
a REPRESS GUSUCR yesone SA NERNRUERT 
a ‘cu : 
— ERRRERER ReRRER SASSSSSSSS (5 
3 SSS8SS8S8S8SS88SSSSS8888 SSSSS8S8 S88S88 SS888288 
3 RRR EATER RAE TEED ITED 


- EVEN 


nt ee ee ee ~ ee 


TO04 
SSaHaOPLI ERED TNEDE OPM OPENERS, CSRS, ta onthinl "HE St 


047514 042101 MNTBL: .ASCIZ /UNLOAD / 


















xc OYSSOS 20040 \ASCIZ /SEEK 
Be 040503 020114 LASCIZ /RECAL / 
ouay 041526 O0S1114 -ASCIZ /ORVCLR / 
BE " .ASCIZ /RELSE / 
; .ASCIZ /OFFSET / 
2493 
2500 002070 LASCIZ “RTC 
ste S108 -ASCIZ /READIN / 
0021 
iB .ASCIZ /PACK = / 
120 -ASCIZ /SEARCH / 
2598 002130 -ASCIZ /WCKD / 
e510 BIS 044113 020104 -ASCIZ /WCKHD / 
2512 O0el 1127 042124 052101 -ASCIZ /WRTDAT / 
5215 oosise goog On 
e514 160 127 o44124 020104 .ASCIZ /WRTHD / 
ie 170 122 O40S04 020124 -ASCIZ /RDDAT / 
1 el22 O42110 O20040 .ASCIZ /ROHD  / 
5218 Bocas 
2520 10 047516 042516 O20040 .ASCIZ /NONE / 
2521 002216 OO00040 
OFFCOD: .BYTE 0 : OFFSET TABLE 
1 ‘By 49 3+ U S 
210 ; 10 -200 U INCHES 
Sb. Hoe | SE 
W2ees es : BvTE i : U 
2529 O0e2et 230 000 “BYTE 230,0 =600 U I 
2530 002230 020 ‘BYTE 20 j+400 U 
soak D022: 220 BYT 220 ;- U Nise 
M2? 3¢ 040 BYT 40 ;+800 U S$ 
2533 240 TE 240 :=B00 U INCHES 
Be ee ME ® 158 8 
260 000 BYTE  260,0 :=1200 U 
2536 002240 EVEN 
Ba 002240 002274 OFMTBL: .WORD  OFMSGO 1ST OFFSET ME 
5243 Bossus | bosse3 ORD OFNEG SRD OFFSET He 
eeu 00224 002417 WORD OENSG3 sTH OFFSET MESSAGE 
5e5 poses resi WORD  OFMSGS :6TH OFFSET MEScAGE 


es ee 


¢ 
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: OFMSG3 4TH OFF sence 
ie Grete ath GET ese 
. ; 6TH 

' OFMSG9 i TOTH OFFSET ESCAGE 
“Hon OFMSGA 11TH OFFSET MESSAGE 
/PETER RETRY WITHOUT OFFSET/ 


' 
f 


N 


ds aes 
5 

eR 

: 

: 


OFMSG1: .ASCIZ /AT OFFSET +200 MICRO-INCHES/ 


kt fo 

R 
2 
we — 
fl 
oe 
N 


: .ASCIZ /AT OFFSET -200 MICRO-INCHES/ 


a 2 
eer 
SF 
oF i= SA 
; 





440 

030062 1 

mie fee Oi 
; 00 117 OFMSG3: .ASCIZ /AT OFFSET +400 MICRO-INCHES/ 

0 1S 

ics os “hin 
gus? OFMSGY: .ASCIZ /AT OFFSET -400 MICRO-INCHES/ 

1 440 

BD O44S15 

Gail ? 047111 
1 pial OFMSGS: .ASCIZ /AT OFFSET +600 MICRO-INCHES/ 

20060 044515 

iH 026517 O47111 
101 O43117 OFMSG6: .ASCIZ /AT OFFSET -600 MICRO-INCHES/ 

051506 D260 

ll 7ill 
O43117 OFMSG7: .ASCIZ /AT OFFSET +800 MICRO-INCHES/ 


bes be 


oe 


PUM USS AMR e Gr a alg eee 
; ; adatatatatat aMsiate 


047111 
“600 OFMSG8: .ASCIZ /AT OFFSET -800 MICRO-INCHES/ 


Ree yee 





2535 1 
Si i 047111 
52 101 1 043117 OFMSGS: .ASCIZ /AT OFFSET +1200 MICPO-INCHES/ 
2539 S06 052105 025440 


OFMSGA: .ASCIZ /AT OFFSET -1200 MICRO-INCHES/ 


- EVEN 
5 EE 8 98 904 9 9 9 a 


-SBTTL DATA PATTERNS 
3 EEE Eg 9 J 9 a a a a Gd a a at 


STNDAT: .WORD 0 ie STANDARD DATA PATTERN POINTER TABLE 
: Tal 
IBD Belay 
“WORD DATAL+ 40 
it 
he 
: TAL+300 
-WORD DATAL+ 
ee TAL 
: A 
3 TAL 
“WORD DATAL +600 
HS Ba 
: ; ZEROES 
“WORD DATAL+64e2 : ONES 
DATAO: 13 p ;DUMMY DATA PATTERN 
“WORD 
2 | 
“ WORD 
“WORD 
Pe 0 
"WORD O 
“WORD O 
DATAL: - WORD pga0q1 STANDARD PATTERN 1 
“WORD 000007 _ 





re eS 0 ES 


LOY 


TANDARD PATTERN 2 
;STANDARD PATTERN 3 


;STANDARD PATTERN 4 


SA CE BREESE fee 


(Soh AT I-ORIVE EERE ar teane! 27(1006) 26-MAY-77 11:01 PAGE S4 
ORD 
A: 
Ee 
WORD 
HOR 
E 
WORD 
WORD 
WORD 
es 
es 
iS 
WORD 
es 





MC COT DE 





.& SANE BAMERSYTPRUTARBYS BP 
Shbeereee Sn pam pan ham ben han bam he pam am bam bam pam pan an pan! BERK ap a 
sesceaeeasg SSHSHeSeSeeeeeee Be BeSee 
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e712 WORD 104210 | 
2713 WOR | 
le 1 
2717 156735 


1 





;STANDARD PATTERN S 






OE 





| 
“WOR | 
WO Upeees 
eS E | 
2731 Bs 
os * WORD 
2726 125252 “WORD 125252 
et 007417 .WORD 007417 ;STANDARD PATTERN 6 
2739 oor? * WORD 007417 
y i 
ml ee | ee 
70360 “WORD 170360 
17 : 17 
a 1 4 ‘eo 1 
70360 “ WORD 
es 7 : a 
1 ep 
1 170360 “WORD 170360 
2752 007417 ~ WORD 17 
Fe 170360 “WORD | 
i Be 45S ;STANDARD PATTERN 7 
151322 
2759 151322 = 
| 
A eS | : 
1 
rel fests tLe | 
45) 
2766 151322 
2767 026455 





we eee 8 oe ee ee ee ee 


ee — 4 


SBSSSSSeee SSNS 


. 
RERRERERERRRSESE 






? fa PATTERN 8 
;STANDARD PATTERN 9 
STANDARD PATTERN 10 
;STANDARD PATTERN 11 
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OZRJOB.P11 ane?) 11:04 BATA PATTERNS 


oe — a ee 


;STANDARD PATTERN le 





ee ee ee ee ee 


;STANDARD PATTERN 13 
;STANDARD PATTERN 14 


ie NNT RN HE 





a SIEEEEEE ENS 


i mn ee eee 


A TT 


MD-11-DZRJD-8, RPOW/S/6 MULTI-DRIVE EXERCISER MACY11 27(1006) 26-MAY-77 11:01 PAGE S8 
Pll 24-MAY-77 11:04 DATA PATTERNS 


j SES 


;STANDARD PATTERN 15 


eeeee 
eoree 


2 
2 


SEeceeeeceeemes) (WWW 





Pe etererrrerere Cc Ie 


¢ 


OFF 


AINA TD 
2 88 6 se He GE 


~ 


11-02RJ0-8, 


v 
7 
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.SB8TTL ERROR POINTER TABLE 
ane MM 


robaf fon Le mele Mae wae 


Ih Ire hOex EER 


CAN _ 
Teh TN THe Thee - PERTINENT. 


en IS (SERRPC 
sores: INTERS SEP PAINED AS FOLLOWS: 

;# ns 

a POINTS 19 THe pe 

.# DT POINTe TO 

# OF POINTS TO tte OTe FORMAT 

SERRTB: 

; 1 

;ERROR 1 
045060 EM1 ;RH11 INTERRUPT OCCURRED (RPAS = 0) 
047520 DH1 
050152 OT1 
oooo00 0 

;ERROR 2 
045123 EM2 ;UNEXPECTED ATTENTION OCCURRED 
047525 DH2 
050156 OTe 
000000 0 

;ERROR 3 
045161 EM3 ;MASSBUS PARITY ERROR (MCPE=1) 
047602 DH3 
050174 OT3 
000000 0 

;ERROR 4 
045217 EMY ;MASSBUS PARITY ERROR (PAR=1) 
047630 OHY 
Be r 

0 

ERROR S 
04S2S54 43 ;ADORESS PLUG BIT CHANGED 
Beni se prs 
000000 0 

ERROR 6 
045310 EMG ;RH11 DIDN’T RESPOND TO ADDRESSING 
047667 DHE 


é 
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= 


Be SRaaGR 


sfoictafaicia{aict= 
WONOUSWe-O 


OO4102 OS0216 - 


5 HEE EE 2 EE a at 
-SBTTL SETUP AND INITIALIZATION ROUTINE 


; START ADDRESS = 200 
; ADDRESS TO CHANGE RH11 UNIBUS ADDRESS = 204 


5p ARREARS EE A EERE EERE ERE REE EERE EE EEE EE EE 


cant 177777 001260 START: nov PA tae Stent PL OO ee FLAG 








STARTL: feSer CHGADR Tie RH11 ADORESS CHANGE FLAG 
e-1 iin TIME THROUGH? 

By BG RON ENDCON een ;SET UP FOR QV PASS 
MOV 
aR one 

REGPAS: nay ENDCN ENOCON SET UP FOR NORMAL PASS 
MOV , ENDSEK+2 

ETT INITIAL T 

33 The Connon Tas: CeomtAG) A 
MOV SSCMTAG, Ro ;;FIRST LOCATION TO BE CLEARED 
i CRB oon *:CLEAR MEMORY LOCATION 

9 3 
LOOP BACK IF NO 
004230 012706 001100 MOV : 


SPRSERLERE Loto SERS RaRR iad. 
338 


3 
asT ;;SETUP THE STACK POINTER 
ss INITIALIZE A 
012737 030570 000030 manner ;EMT i FOR E)°-R ROUTINE 


SUG & eee. 
MOV 


Dee O12737 176543 Guesee s1766N3, IMM 3 ;PR NE THE RANDOM NUMBER GENERATOR 
er ES ERE | ave 6 wondubtetalt Gr RecHSTeR. Sik out 1S 
: ;;EQUAL TO A t, re . FOL AG SISTER 
rater 1 NOV 864S 9 Cc aa, ete tor 
004312 012737 177570 MOV :: SETUP FOR A ICH REGISTER 
Onze Ole7a7 | oo1 142 MOV SDDISP. DISPLAY ;;ANO A I GISTER 
oolol2 ce OtéS” ONC TF OT WARE SCCURRED 
$3 HAROWARE Re Noho 
004336 000403 BR 65S 'BRANCH IF NO TIMEOUT 
a 004346 YS: MOV BBS, (SP) ‘'SET UP FOR TRAP RETURN 
1 000176 OO01140 65S: MOV © SSWREG, SWR ;;POINT TO SOFTWARE SWR 
004354 012737 000174 001142 MOV #DISPREG, DISPLAY 


a mr cc a rn me ee ee mm ee 


: 
3 
3 


BERSKE Csi ced clot uber ere bereits iiaiiaaiisii busty : 


: 
f 
e 


ETE 
ae 


H 


| 


$8) RSA 


ma Glee 





g 
2 


11:04 


x 
8 


ae 





ova 


000046 


000041 


000176 


001134 


033372 
033374 


001274 


001406 
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66S MOV (SP)+,QSERRVEC ;;RESTORE ERROR VECTOR 
MOV : vecte ; PRIORITY T 
HOY neve at C42 Fi ime BABA TY fo" 5 
BNE 1S Pg 
CMP ant2, ae46 i ORE We H ACT-11 AUTC MODE? 
iiee ni ar, REPT OR eit MODE ? 
BNE 1 : 
CMPB 011,41 7 FROM AN RPO“/S/6 ? 
a Tyee shoeney CTT creRaTOR OW How To TEST ORIVE o 
SBTTL na VALUE My SOF TWARE site ei STER sealed 
ny ers #SWREG SWITCH REG SELECTED? 
She , Heard 
GTSHR ::GET SOFT-SWR SETTINGS 
67s: MOVE «81, SAUTOB ;;SET AUTO-MODE INDICATOR 
"INC 8-1 FIRST START ? 
ao ire RAL ADDRESS 
MOV . *RHI1 
MOV SRPVEC,RPVEC  ;RH11 VECTOR 
Oe" ath ete eo 
oa r DATE & Tor {to PUT - 
2s: CLR CFAPIN : SUMMARY TYPEOQUT FLAG 
= HOV BORDERG, RS ‘START OF AREA TO CLEAR 
BE tens gm a ee oe 
MOV TACK, SP 
ek vELERR if Processon sta Brus WoRD 
HOV HZ, SIXTEE :1/60 TH OR 1/50 TH SECOND COUNTER VALUE 
i ce Boone 
CLR Thrive InfeRVic ec 
CLR K : ’R’ OR 'W’ COMMAND FLAG 
f 


BC #170000, MaXER 


;ROUTINE TO DETERMINE BUFFER AREA SIZE 
SIZMEM: is vt iEe Pat TO SIZE MEMORY 
JSR PC SSIZE CEE MUCH MEMORY ON SYSTEM 


MOV SLSTAD, LSTAD ; SAVE HE LAST ADORESS 
1S: MOV #1, BUF TBL ‘LOAD NUMBER OF BUFFERS 


ARE SURE ERROR LIMYTS ARE NOT TOO HIGH 


= Eee ai es 


GOS 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


XERCISER MACY11 27(1006) 


MULTI-DRIVE E 


11:04 


=, 


MD-11-DZRJO-8, RPOY 
OZRJDB.P11 


Hg 
ef E hr 
3 : “ : in : z - g 
eadpia Fe ell SE og 
% E.. “ee -~ g Soff a . & ene 52 Beg & 
Bie mda ike gfe dees | ioe 
atye el : sae i g fect ie, ° geot og 8 Sete" 
gobecesacbSuctes  otae® Eure 2 fate ree 5 rite 
eisai tialeat : Heubete fees ¥ Eepiarasat Stated 
VF x < % 
td To See ° - 
e a 5 Se i e 2 mee" 
j Se a aa 2 of See seed a4 yee. be ws 5 
i $3 oe a ors a i te a 0 z 
ng $oon- ebelbets 258 och eens as were Ect 
» & But 
pesusakaaavensaes ¥ petgaky anezs Sy ameguzeesht 5 feat 


a 36 
8 
2 


001404 000004 


es Kg 
Sais 
. Eebeebeesseenease! aot é 


: SR ECR AAEE ERROR ER RES BS BS BB RENE SNS TRANS 
So Dp Span oun. pen, one oan fea Gea, ame, en Fuses en Sears cen een Jueen been fees oan eee eas een awe pas pan ham paw pas poe pan pan) 
LED LODEMIEMD. PD CPDL PDL. DD OD. OOD OOOO OOO 9009 I IEIOIODOD 


026332 
biz7a? oooco4 001404 
ott 
033410 
177777 
177777 
000004 


rte 
04401 
OW411 
ee 
si 
012703 053514 
004737 


0237e7 


é 
a 
: 


Pi ibse 


DOS! 


005144 1O44O1 052213 


— 
g 
ge 





Pll se 


005143 





HOS 
BoabbaPPH? © RPRAYSeo SYEDA-ORIVE EXERERTED a UPMFLASBFIARRE sufi Retisrea'! PAO *9 





3138 005150 105764 033244 TSTB ORVSTACRY) mie DRIVE’S STATUS 
Ip ae 033254 3! YP(R4) : ile OR NONEXISTENT 
ie Bee | ee i ie Othe 
is < 052317 TYPE 4iOTRP Bete hex ene ReOH/S/6 
1% 000435 = fire . CK meee 
052226 3s TYPE TOFF pe] faa 
aS ests Mane are IN Std Sv 
3144 l2 104401 052374 4§ TYPE NOTSAF i DRIVE UNSAFE 
3145S 1 BR iP DRIVE TYPE 
316 104401 052237 cs: PE , UNTON :DR INE 
31 i 1 052215 6S: WP LINSP : S one 
te Gose% ered SRedot Beseq BITB sGIYOO,DAVTYPCRY) SiON 
31a 0 FE 3 ROY iP oness o RPOS MESSAGE 
313 Bose ° Seaaae nee 1TB SEITE BavrvecmaSermeee 
3154 O0S264 012737 052436 005274 MOV #RPO6 , 8S Wee Tee beve Pees 
155 73: : TYPE MESSAGE 
ais Geen eon Stik 0 eset wwe Ne 
31 104401 001165 9S: TYPE SCRLF : 
3158 INC id ,DRIVE NUMBER/TABLE POINTER 
31 000010 CMP RY, #8. INI 
3160 310 O013ie : ee BNE mf ‘BR IF MOT. 
i . 
te reste begs reeraia : CLR pe” it PRIORITY BACK TO ’0’ 
3163 005322 000137 005326 JMP MONTR CHECK FOR ’XXDP’ OR ’ACT11’ MONITOR 
3165 ;SETUP IF ’XXDP’ OR ’ACTI1’ tnclasitite 
Ets] 005326 005737 o00042 MONTR: TST 42 *XXDP’ CHAIN MODE OR ’ACT11’ AUTO ACCEPT 
3168 005332 001402 BEQ 1§ BR IF NEITHER 
3169 005334 004737 024324 JSR PC, ASGN2 : GN DRIVES 
3170 bosee7 177777 1S: INC s-1 °F START ? 
3171 1011 2s ;BR IF 
3172 105737 000041 TSTB Os HL ‘LOADED FROM PAPER TAPE ? 
3i73 OEE aeaee 001256 100000 TAD, #100000 iBR dF Me 16K ON THE SYSTEM ? 
ai>¢ Soeses Pesos girs |B snag THe 
3176 005364 104401 o0SS675 , NOLOAD set ut. THE openaToR THAT THE 'XXDP’ LOADER 
ii” Bpesy SoHo, BeaHOT ss & ae 31K aE AT KEYBORRD INTE Papas 
3180 005400 600137 005562 IMP hAING ph a i Marea 
3182 ;*XXDP’ OR 'ACTL1’ END OF TEST ROUTINE 
3184 OOS4O4% 013700 oD004e SGETH2: MOV 42, RO ;MONITOR ADDRESS 
3185 bos419 901002 1$ ‘BR IF MONITOR 
3186 00541 137 o0sS62 J MAINI CONTINUE 
3187 005416 o00005 1S: RESET CLEAR EVERYTHING 


es . > < ee re ne a ee me 


3 


WWI WWW) WI OI 


foe pe fos b= he fe pe Be pe pr he 


BEIFRLSE HL SBB 


RERRRRBE 


Cn a dn Se er oad 


FR RIS NA OO PP AT oP ™ 
005420 71 SENDAD: PC, (RO) at.3 MONITOR 
ee ied a Be 
005430 000137 OOY41I16 SDOAGN: JMP STARTI : START AGAIN 


5 RAE AEE EAE Eb EE 9 9 9 9 9 a 9 9 9 9 9 9 9 9 9 a 0 a a a a a a 
-SBTTL MAIN PROGRAM 
5 EEE 8 48 gb 8 EE 0 9 9 9 A a a da a at 


See SSIES 





1 10 MAIN: fi 
piste rates 4 NOY SUNT, RS FReop DRIVE’ TABLE 
005715 1S: TST Rs) F ENTRY | QT ofBesent POSITION 
D705 ooo002 2s: ADD 82, RS nereNT TO POSITION 
DEC R3 ORI ae 
oberg? 001462 S bas ev ibeives aerives 
ae oo a 
ite 9s: ov  savalt,rt ESE UE ET Bes: TABLE 
ll 4g: TST RL) -SEE IF AT END OF aes A 
5 3 oe tBu, (RS) ta ager fhe Bre To BE BRoPPED 
3 1 ooo002 800 4, RI ; Lonel ’ TABLE ADDRESS 
7 012701 o01SS2 S$ MOV sWAIT,R1 :H0 ano are WAIT TABLE 
8 6$ TST (RL) iat D ett ’ 
Q ‘BR ’ REQUESTS 
021115 CMP (R1), (RS) ane SuaIT® Ae > oP 
1 ooo002 BFS ,R1 ; Patt Tea. TABLE (orrESS 
000771 BR § i CONT "WAIT’ TABLE 
011100 7S: MOV (RL), RO ie taf Me ect AOORESS IN RO 
1o4401 052710 TYPE DEASSG 
737 022736 JSR PC TYPEST 
00s015 CLR (RS) DR E ENTRY 
005011 CLR (RL) ey eB IVE cle" eet THE AVAIL’ OR *WAIT’ TABLE 
004737 017570 JSR PC, CMPRES : COMPRESS RESPECTIVE TABLE 
000733 BR 2s “SEE IF ANY MORE DRIVES 
;LOOK FOR DRIVES TO BE ASSIGNED 
012703 000010 MAINI: MOV #8. ,R3 ;DRIVE COUNT 
oo0sod2 CLR R2 : AVAIL? INDEX 
005004 CLR RY ASSIGN LIST INDEX 
005005 CLR RS *NEW DRIVE INDEX 
005765 001506 1$ TST NEWUNT (RS) iNEW OR VE IN THIS POSITION 
601006 BNE 3 BR I Is 
ooo002 2s ADD #2,R5 : INCREME 
INC : INC SIGN INDEX 
DEC R3 :DECREMENT DRIVE COUN 
001370 BNE 1$ ‘BR IF MORE DRIVES 





pea eS NIN ISS USINSINISSIISS 


nn i meee wee - 
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oe Foe |) a iFIRRT_PPERAT IONS FOR THE AVAILABLE DRIVES 
MOV. «RY, -( SP) + F 
TYPOS Ff : 
‘AE é 3 TYPE 2 QIGIT(S) 
t a) ’ 
4S: TST AvBT IT Re) Ht AVAILABLE TABLE 


001530 SS: é ee won RE RE OF Bai fr LST 
sti: Abe? BV HAE agosto L ac SEU PUB ao 
ADD ; AVA ABLE POINTER 


| OT iT OGK FOR 


:GET PARAMETERS, BUFFER SPACE, AND START ORDERS FOR DRIVES IN 
: THE "AVAILABLE’ QUEUE 
MAIN2: TST T T 
IN2: TS ch 1, eo ee Eres REQUESTS 
1S: T I L(R2) i ANY. OR ‘etine F POR SRRAME TERS 
MOV AVAIL (R2) , RO fe BLOCK a IN RO 
Isl (RO) BEEN SELECTED ? 
TSTB  $PACK(RO) OR? an COMMAND FOR THE DRIVE 7? 
Swe ET rere 
Ss: CHP : aly car DRIVE IN oe Quen? 
328 : BEQ ae’ ibe ae eet 
308 TST (R1)+ AT END OF QUEUE 
BEQ = ‘BR IF AT END 
BR : OOK ING 
4§: JSR PC, CMPRES : TABLE 
S$: JSR PC; SELPAR * SELEC PARAMETERS 
6S: JSR PC’ GETPAR {LOAD NEW TERS 
7S: CLR -($P) : ROOM ON THE STACK FOR THE BUFFER ADDR 





Seen ONS OSE ADEE 


RO, -(RS) PUT BLOCK ADDRESS INTO QUEUE 
TSTB —s- SPACK (RO) ’R’ OR 'W’ COMMAND FOR DRIVE ? 
10$ BR IF EITHER 
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3300 012705 001574 MOV #PARQ, RS TER QUEUE 
is are ea Ne INTO THE QUE 
cea Raga TS HRY = RR «RS i 
ce = 001254 8S: i gio. pune’ ee IN THE — LONG ENOUGH ? 
4 Re AIR(RO) ‘f THE ENTRY 
Fe BR ty eh 4 ES ves 
1 Qs: MOV BWAIT,RS {Ook F 
Bil TST (Rg) i1,00K Fi I 
rt 1 BNE - :BR IF 
313 016245 001530 a MOV AVAIL (RE), ~(RS) jnove IVES BLOCK ADORESS TO QUEUE 
Bi Reig We a a 
1 004 017570 JSR PC, Ss “COMPRESS THE TABLE 
1? 000656 BR 1S opel: LOOKING 
GET BUFFER ASSIGNMENTS FOR ORI N THE ’BUFFER WAIT’ QUEUE 
3321 013700 o01SSs2 MAIN3: MOV walt RO poe fie Ot Te STR RY T9 BO Papi 
Bs pans 015732 PC GETBUF ie he Rope ON EPR - 
3304 012660 000006 (SP)+,$BUF(RO) ; ADOR TO THE DPB 
3325 001002 BNE 1§ ‘BR WAS ASSIGNED 
3328 900 006242 JMP I iNO 
016302 1S: JSR PC, FILBUF : iia 
O04 D160 JSR PC’ GODRIV ; N THE DRIVER 
1 001440 MOV SATA CBO) bee Sueur IN RS 
1 toes TST (R5)+ if an Te CELE 
3332 oo! BNE 2 :BR IF NOT 
3333 10045 MOV RO, -(RS) *PUT BLOCK ADORESS TN QUEUE 
BE BBE RB onsn EE ee ee aa al ae 
Seg 400° 001574 MOV ,RS Fin ne: END OF. 
Ee 00622; Boise TST (Rg) I IN THE ane 
L BNE - ;BR_IF 
; MOV RO, -(RS) BL AOORESS I THE QUEUE 
3340 12701 0015S2 2s: MOV wat RI OF TABLE x} COMPRESS 
017570 ISR PC 5 
a tne “batr Teele 
3344 ;WAIT FOR AN ORDER TO FINISH 
Sue 012701 001440 IDLE: MOV #ORDERO, Ri ;ADDRESS OF THE ORDER QUEUE IN RI 
3347 O1e100 1S: MOV (1+, RO sPUT BL GCK ADORESS INTO RO 
3348 BHe7E8 ooo016 EG PE po ae FDRive 
3350 001773 BEQ BR Ie OR NOT FINISHED 
Beh seh digray, ommme ees re 
3353 004737 015566 JSR PC; STATIS cguunare appatistics FOR DRIVE IN RO 
ee 006600 JSR PC, PROCES ESS END OF ORDER 


————— + - —_—_ — - - a 
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SA EEVrErirsverot Littl) ReRERRARS Ciuc davd da cat: = 


001264 





4) 4 
g aes 
i 
£ 
BRREARI Eh RARTN RA 
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ee = 
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gS 
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TRK/SEC ERROR INDICATOR 


ie PATE ia - 


» an agian ae 


HOY (RI) 08 ) NTO THE TABLE 
’ RELBUF 


o 
? 
JSR PC : 
IDLE1: ies rs : ENTERED ? 
J KSR ICE THE KEYBOARD 
1S: IT , @SUR SUMMARY 
Ist STATIN iT "TQ TYPE THE PERFORNANCE SURMARY ? 
CLR ial - me INDICATOR 
2s TST PAKS A THe PARAMETER QUEUE ? 
BEQ 3$ ;BR_IF hor > 
JSR Pe eet PAR : eat ‘Preeretps FOR Nex1 NEXT RO PERATION 
MOV SPARG.R1 fa 
132 pc CMPRES THe PARAMETER CUELE 
3S: tn I 


;SETUP TO — AN ERROR sector 


172476 REFMT: BIT Y SWITCH SET ? 
ote toh TF li 15 
fied ae mer BR ide « 
Pot * WRI & DATA ORDERS ALLOWED ? 
BEQ ‘BR IF NOT 
000100 MOV pty ), srcrL (AD) CYLINDER 
J TOR-TRACK ADDRESSES 
(SP)4, KCRDD ; 
: HOV (SP)+' SECTOR 
Boo4os an L; 8260. cheat iter Biro ? 
000102 MOV Reb SHAD, (ROD RF Thetcrer SIZE INTO THE DPB 
000074 1S: MOVB = 83, (RO) ; COMMAND CODE 
JSR PC, GETPAT GET A PATTERN : 
000104 Keys BS SETS {BR} i EB} TOR 
ms HOV appa JRL : SET uP 19 IF BLOCK IN THE PARAMETER QUEUE 
re ee 
CMP RO, (R1)+ ie F BLOCK AT PRESENT POSITION 
ee CEA She ENTRY 
JSR PC, CMPRES : COMPRESS Te TABLE 
REFMTX: RTS PC * RETURN 


en ee ee a a ee ee —— 
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MAIN PROGRAM 


;PROCESS THE ORDER TERMINATION 


— ed Oe ii 


44 


100000 000234 BJ in SRPCSI(RO) nb oe" SET 
040000 000234 BT y, SRPCSI (ROS F *TRE’ SET 
040000 00246 I oid | SRPDS1(ROS ERR’ SET 


013030 1S: JSR PC, CKERR 
boa0d2 172260 Bi l, 


013214 JSR , CMPAR 


es: RTS PC 
;ORDER TERMINATED WITH AN ERROR - PROCESS THE ERROR 
;DONE BIT SET ? 


000016 ERPROC: BIT #81707, STATUS(RO) ‘ 
ee a aaa 


;PROCESS ORDER COMPLETION WITH ’ERROR’ & ’DONE NOT’ BITS 
000016 ERPRCI: BIT o STATUSCAD) cmon occomen WAS UNSAFE 
a 


» CHECK ERROR BITS ANYWAY 
CK BUS ADDR & WC 


COMPARE DATA 





i 
e. as 





000016 I I PE sarscni 
BNE UCPAR 
000016 git 91710, stavuscroie ai ree Y ERROR? 
000016 BIT #81709, srarusceoing -T 
040002 000016 ant 8B8IT14!BITO1, sralte A) YES RIVE WENT OFFLINE ? 
eet peere 000004 000016 IT ee STATUS(RO) T ST TIME OUT ? 
Sere PRIA’ my: Mali | 
RTS PC ERROR. RETURN 


;DRIVE IS PERSISTENTLY UNSAFE 


001165 PUNSAF: TYPE —, SCRLF 
Tyee * Bahn Ene RGR’ Messe 


001246 MOV UNIT, -(SP) 3s SAVE UNIT FOR TYPEOUT 
o> 

BYTE 2 +t pe pont tal 
TYPE pSchlF a= oe Le 


ponte. JSR LINE1L * PRINT 
oe i ies ARNE Ei - 


mE 


Saal 
33 





oS 
aes 


ee Ce CS Eee 
_ = + =<. 


Ba Tot zoids 


T 
: 
: 
2 
2 
E 
: 


eS 
gh 
a 
zi 
#18 
3520 
354 
3S23 








001165 
O4S3S2 


| 
02 
000207 
007202 
007222 


172006 


a Ee 
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Una tike'S  Beok eos 


;DROP THE DRIVE 


;UNCORRECTABLE MASSBUS PARITY ERRUR OCCURRED 


UCPAR : 


;CR-LF 


3F IN I 


; FATAL’ MASSBUS PARITY ERROR OCCURRED 


rare: Tae uy 


FALPR1: TYPE DRNUM 
MOV UNIT, -(SP) 
TYPOS 
.BYTE 


2 
ae 
JSR Be the NeTOT 


TYPE 
, ee 
HALT 
1S: RTS 
;SOFTWARE TIMEOUT OCCURRED 
SWTIM: JSR PC, LINE! 
DISPLY EAL 
ie PR LINES 
pe bind 


gr 
J PC} LINE 
RTS PC’ 


;ORIVE WENT OFFLINE 


OFLIN: TYPE SCRL 
TYPE "EM14 
MOV UNIT, -(SP) 
TYPOS 
-BYTE 2 
ive OSORLE 
Biba Fea! 

SPLY 14 
ISR PC LINES 
J Pe’ TINE 
JSR PC’ INCTOT 


ERROR’ MESSAGE 


one re, 
ve aeeeh TYPEOUT 


;CR-LF 

; DRIVE WENT OFFLINE’ MESSAGE 

+ ONT T For TYPEQUT 
NUMBER 


Ne THe ERROR 


a NT uttem 


606 
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11:04 
ey ae PROP THe BRIVE THE ERROR MESSAGE 


;PORT REQUEST TIMEOUT ERROR 
PRTIM: JSR . PC,LINEL 


$ 
: 
: 


aR 





BISSISiy 
F a od 





SR 
RTS 
;PROCESS ORDER COMPLETION WITH "ERROR’ & 'DONE’ BITS SET 


NGG eee 





oo RY 8 


000016 DONE: BIT 09170481703, om ) OCCURRED 
_— fe eer 
000244 be egiTt sven! ? 
000246 ae IT14 4, SRPDSLCRDS ss ERR’ 
o002so 1S: BT 821 see 00) 5 ese 
re Buoued 000250 BIT 881 ewencol” ty 
On BEQ i seh IE No T 
on 011132 IMP eXENT : FORMAT ERROR 
ie 000200 o002S0 BIT 68107 SRPERI(ROS ; ? 
| . 
or il INP 
tk 000250 BIT 5 i SRPERi RO) 
aC 1 ie (opt 
ie 10 ocoe2so BIT arts SRPER1 (RO) 
OO 33 + 
i 
O3e ee 000250 BIT 881 
x 30 fe F 
13¢ ered 000250 eo Ai . 
ar i 
eed 000250 BIT 06 ll, sarc} . me 
. 2104 i WR sr 
Bb a00 000250 BIT 9, SRPERL(RO) 
002000 000246 BIT 881710, ‘ened ayer 
FT PC , ttt SET, EXIT 
010000 000250 2s git 081712, , SRPER (RO! OTE? SéT 
3579 011736 IMP DTEER 1 aa *DTE’ ERROR 
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MAIN PROGRAM 


Bee agra, ns Emit s seY SET 


¢ 


ee 





RPOY 
24-MAY-77 11:04 
: 040000 
07s 1 ; 
sree ny — 7 Fo Pe SET 
= aris afte 190000 AOL 000276 ei erent ste OR ’OCYL’ SET 
13? 012372 
33 007624 000137 011100 IMP REPORT DRIVE ERROR 
=e PROCESS DATA (’DCK’) CHECK ERROR 
23 007630 022760 010042 000300 DCKER: CrP #10042, SRPEC1(RO) sVOLID POSITION COUNT ? 
= Gore dos7eo 000300 Fey esee {Bost tin count 0 » 
= Serene Gores 000302 rs! C2(RO) ; VALU a PATTERN REGISTER ” 
oa Gres fore ES ily Mare: Ree CR aa oh ron reso 
eo ces ie Feit, «DEA tS 
<5 1 SRe0e3 001252 MOV sa J RETRY ; 
oo 015440 JSR BC, SRETRY OR 
3606 19 021740 ISR PC, LINEBC iY a oF ERROR MESSAGE 
ai ae pers 2 24 8 3e Lineso ; LINE ERROR MESSAGE 
at aoe Nee02e an PC, LINE? iY LINE 7 OF ERROR MESSAGE 
%1i 020102 4§ JSR Be, sPoTCK : F ATA SPOT ON THE PACK 
ele atts $ RTS PC : 4 
1 go0ce4 000001 SCODE(RO),81 31S A WRITE CHECK ? 
Sie forme oe? 10422 Ber TPE SaT ERROR UNDER WRITE CHECK PROCESSING 
1g ees ON? a 6S 15k PEL INEL : PRINT ERROR MESSAGE 
1 104414 SPLY 1 :DATA 
3618 004737 DCKER1: 13k PC LINE fun Hie OF MESSAGE 
za tee: ite J Pet ined *PRINT L Neecace 
p tain oa ISR cetristat i! ‘gute r Tot TO Be BE PRINTED 
BGS te nin mes NTU Le 
Sie fee ere Benes Bul te gor ce esse 
33 1 1 001252 1S MOV #16. ,RETRY sRETRY seas 
255 ste Bares ooocd2 000262 Si SOITOL, SRPOT(RO)’ id I see 
3630 100 0100 BNE 168 BR IF IT Is caek aan 
sae Sites Gia Rs: RCRA EP ue canon sect 
3634 010062 112660 000011 MOVB (B+, STRK (RO) TRACK S OF ERROR SECTOR “9 
3635 O10066 112660 000010 MOVB (SP)4'§SEC(RO) ;SECTOR SS OF ERROR SECTOR 


ee ee + 


en ee oe -  -  -- C- 


? 


wee 


SoRORR TARE RIS scl soe See CRREER BORON B Se ska tone one a : 


— 
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$ MAIN PROGRAM 


vw 
eo 
ee 












RPON/S/b 
24-NAY-77 
S185 BARBER BBREE a SECEE {RB} Sebi tak FERASPER LencTH Less THAN 1 SECTOR 
G15 1 : HOV CRO), SADA (AD) I ROT Secton 
101 5 nov ‘tal R OPERATION 
Oihi9 15S at, F  RODRESS 
° 
att 2660 nee “ HOY vue | BUFFER ADORESS TO DPB 
OL I - = BO BR EP one. 
HIRE GBC conn coos «Yr snacnn Made OE emren wre 
Oidiee Oona? 3464 ae INCTOT en TT TAL ERROR COUNT 
10176 4 1370 DISPLY ab tner pdt: DURING RETRY’ 
Hay 1250 o0o2so 148: © BIT MACK, $RPERI (RO) iLO rs ERROR 
Sits 010100 000250 Bt IT12!BIT6, sreeh(ng) OR DYE’ STILL SET ? 
10220 0014 BEQ ; SET 
Oitese i Soises 001253 AR ORETRY RETRY#1 wei 
1 Obigte . ‘oR IF NOT 
bites e137 044771 Tne U coo» coorbeear ret CODE 
BS BP cro B 3 halt oft 
Ole ONT? bros eee Teh PE’ OFFST OFF Cini 
010262 008737 045006 ys: ‘TST STATUS SEE IF FINISHED WITH OFFSET 
O10e76 Ioees BP PH iBT NO ERROR PERFORMING OFF OFFSET 
ee eee wen tL I ae ee 
O10aae 023464 JSR —«- PC INCTOT ToT 
gies ire fet 2 Mi RIN Wo 5 ie esas 
Reem Fe Pe a ister 
1059 Sooa? 14342 > JSR PC, ECC > CORRECT ERROR USING ECC AND CHECK IT 
i BI coz os: Fer +o jeitad "4B OF ERRon ressace 
i ee ae de 
; ; 
Ries tee, a ae oe 
Gioics Oni gees Fey Peyauevot —FTRcreMe ToT, eragR, cou 
010410 004737 2 128: JSR PC,LINE? 'PRINT LINE 7 OF ERROR MESSAGE 
O10414 004737 006434 138: JSR  PCREFMT "REFORMAT THE ERROR SECTOR 


EOS 


ee a a a a ee. ee Cee ee 





0 
e 
aw 
bots 
r 5 = = 
z en: 
wih ay Bye 
3 a aaa 
= & Su Suche 
» et RUST bEEEE = ees RESET 
: @ 2 2 2 2 
aie : Fes , EEE 
22% 9h 8 > g £ “ 
2 o WRBEEE BEE ote pat td a atbs. 
= =_ at. a = —<— ~~ 
mgoeone ab S25 Sessonck 


ze 
of SPP SR erERaee Res 
oe 


a z be 5 rane oror 
py ur atatatasartoy fay fap fap subd fo Sonn goonge ts, oor wie te 


MACY11 27(1006) 
PC 
;WRITE CHECK ERROR PROCESSING 

| Ape 
»LI 

PC,LI 

sa 

Pen 

ane 

PC, SRE 

a 


MAIN PROGRAM 
RTS 


: : rT te aa 2g F 
og Somes Sag tee: got me Sr 


pL EES a SSN 
SOREN ACERSSSONNOSRA SUISERSaaaAR ANI NSEPESSS 


ee een ede Bias ee Roe ee? SooooooOoOoOooooOoooS Bee Be SSS BSS SS SSS SSsssssssss 
SGO0GGGOG000G SOOO 28OOOKK0000000 0000000000000 


hIRRAARERERDRRRBRBASAHARASEN ENN RRR ENS HRREER ARR 


*en=79 





ll 


MD-11 
DZRJDB. 
Se 010420 000207 


: 


oOo 
Ps fe Pie Fs fh ho we 


Riseaews © dasneas 


oOo oO 
== 
oe pe 
ooo 
——— 
cro 


A 


oooo 
b= pepe pee 
b= bh pS 

1 


Te EPETEEEDER ESDP h ES EECREARESETOEESECSCr ETT erry 


jajlelelelej=j=/=/=)=) 
bs b= bh bb bh st 
ee oe ee ee 
bb be he 


SNFLEVFOS 


a 


FO6 
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11:04 
cemey OS: : peng TEN ib EL SPO" 
3 iB: Ten Pe LINE? IN INI THE TOT Rba recone i 
006434 JSR PC, REFMT oe T THE SECTOR IN ERROR 
118: RTS PC ; RETURN 
;REPORT ’HCRC’ ERROR 
020102 HCRCER: JSR PC, SPOTCK T PACK BAD SPOT 
XIT I ERROR sh 
020240 FR, ' LINE] Day Ir INE 1 OF ERROR MESSAGE 
es sehey eo nero HERS” OF FRROR MESSAGE 
le JSR PC, LINES PRINT LINE : OF ERROR MESSAGE 
Re ARES 000244 ar sethhts »SRPCSACROS 5 i. EIERAOR ALSO * nantes 
rate Toate & fe ORS WORDS. WH CAUSED. we 
Ge3464 JSR oF a ; INCREMENT TOTAL ERROR COUNT 
Gore) onieso = aT nc JT EX 
01S440 JSR PC, SRETRY ; RETRY ae 
021740 RR, BE Linesc i PRINT Oe Ee BP Phror MESSAGE 
022022 JSR PC, LINE7 Pet LINE 7 OF ERROR MESSAGE 
021746 i} Fee Be i neso NT LINE 6D OF ERROR MESSAGE 
JSR PC, LINE7 pat tl LINE 7 OF ERROR MESSAGE 
006434 a7e »REFMT j REFORMAT THE ERROR SECTOR 
3S: S $ URN 
;REPORT DRIVE ERROR 
ae DRVER: JSR . PC, LINE] jPRINT LIN 1 OF ERROR MESSAGE 
or: tes PR i 9 pm ces 
tees 7S PETTOT MRE Oa Eon COUNT 
RTS PC ; RETURN 
;PROCESS FORMAT (’FER’) ERROR 
000400 000250 CKFMT: eit egiTs, SRPERI(RO) ;*HCRC’ SET ON ORIGINAL ERROR ” 
ee, a 
eet 04S024 BIT abt", CENREG+RPER] 3 TS HOR’. SET WHEN HEADER READ? 
BNE IF *HCRC’ I 
012132 JMP FMTER ERROR IS ’ * ONLY 
020102 es: JSR PC, SPOTCK ioe IF ERROR ar 4 SPOT ON THE PACK 
BR ss’ EXIT IF IT IS 


a ne + es ee ee 


WHICH CAUSED *WCE’ 
IT 
Sn 
Ke 
60 OF 
7 OF 


j 


26-MAY-77 11:01 PAGE 75 
INE1 PRINT L 
ig Be fi 
i fe ROT 
thee : ina 
Hina 
Li 
»LINESC 
, LINE? 
» LINED 
eee 
;PROCESS HEADER COMPARE (’HCE’) ERROR 


GO6 


5 
4 } 
14, SRPCS2(RO 


MACY11 27(1006) 


: RAR RD SRRARS BP tg 


SS: 


ig 

2 Ud SSE 9 
ja 
Siar IN Riau tort 


“DRIVE EXERCI 
MAIN 


ON Od hh a ht ed 
4 I OG my ah ed a ah med ed a) ed ed eh gd ed me 


0002S0 CKHCE: 


- muay Sy 
: BS : ;. 5 a guns ~ 
: se ES ge % :. ~ SEE ri 
Se. 2 Se seesse Tea. ge 
Sica poate ocd goad. Ba 
Gg ata es oe 
ges ost Sere Eeeee ERUMEREE 
"gee ed meueUne vere ane=Pheuee 
e Fs pet 

ee elim 
Bee VSM SaNS See se eee See eee SseRS 


> 


EQRIOE BCR SIME DDN SHRRD EET 


-~O>>Mao0 


o4s024 

4516 

16 
OS4S16 2S 


g Sies 8) 22s Betioe oss 
Sosob ba NOBUBSEBEGSENSEBEES 
SEA AUR RSS east bebe Su Se tht 


td et dt et tt 
Con hen bam bam bam pam bam pam baw bam pan ban ban bam bam ban pan pam bam pam ban pan ban pam pam pan ban pan pan pan ban) 
OOOOK00000 000000 0000O000000O00000 





=p RMSRR aaaaasannadann AMONG NRANaAMORMRRRaRRRaaRURRRRMNUNG 


an a ee ee eee ee CS 


mn a ee 
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011826 004737 JSR PC,LINE7 ;PRINT LINE 7 OF ERROR MESSAGE 


itt 021746 S$: SR »LINEED ‘BR NT LINE 60 OF ERROR MESSAGE 
plies Shires SENG fe chara Heed hd SinbaSTo 
ll 6S: RTS * RE TURN 

;REPORT POSSHBLE POSITIONING ERROR 
O11552 004737 015300 POSER: ISR PC, RECALT ;RECAL IBRATE 
Biiees SONG fame dicey PEREI i PRO RAN DETECTED POST TIONING ERROR 
il 737 JSR PC LINES sPRINT LIN g OF ME 
L876 737 JSR PC ‘ : PRINT 
Ht 10000 OS4S16 BIS sat te CYLDER iREST THE Eoona T 
11604 iss Ct JSR PC, LINESA : LINE SA OF ERROR 
BLieis QOIza? | beSNeM Ten PETINCTOT HINREPET NATE ERROR COUNTS 
blibed 022150 58 PC, LINE ZA BRIN LINE 7A OF ERROR MESSAGE 


;REPORT ’OPI’ ERROR 


PEELE CELE P EPR ERT ERC LULTLULLRERERERERELI Gadcid tals 


Bie BBucke 020102 OPIER: ISR Pc, SPOTCK i SEE uf FRROR 8 aT BAD SPOT 
11634 737 O20240 JSR PC, LINE ‘PRINT LINE 1 RR ERROR MESSAGE 
O11bHd io 046301 DISPLY ,EM31 OPI’ ERROR 
11644 020304 JSR PC, LINE2 : PRINT LIN g OF ERROR MESSAGE 
011650 004737 0e0712 JSR pC, LINES iPRINT LIne : OF ERROR MESSAGE 
setae Bea739 54368 ie Be Fac OT STREREMENT TOTAL ERROR PE ScaGe 
BiieeS Bera SOON OIE) ce: Yaa RETRY YURI 
O11705 ee Brea " JSR be: Se TRY RETRY ORDER 
ott 3 oe1740 ROR RETRY CINE be SSAGE 
ate: ee ae JSR PEL INES + PRINT tN Sof ERROR meeeace 
011716 000207 RTS PC jExTT 
ptt7Sa BeNTa? | peenee i: TORT INES SPRINT LINE 9 OF ERROR MeScace 
gLite: eee JSR PC’ REFMT i REFORMAT THE ERROR SECTOR 
011734 000207 RTS PC * RETURN 
;REPORT 'DTE’ ERROR 
01173% 004737 020102 OTEER: ISR PC, SPOTCK ; SEE uf ERROR OR AT BAD SPOT 
Bt 37 20240 ISR PC, LINE! ‘PRINT LINE 1 Re ERROR MESSAGE 
011750 104414 O46344 DISPLY ,EM32 :*DTE’ E 
3303 011754 007762 JMP OCKER ‘FINISH PROCESSING THE ’DTE’ ERROR 
331 REPORT ’PAR’ ERROR 
13 011760 7 R: P ; PRINT RROR MESSAGE 
3313 Blizes foN4i4 | Baea77 PARER: Fey PERI iREPORT “PAR? OF CRROR NES 
3915 011770 737 020304 ISR PC LINE2 ‘PRINT LINE 2 OF ERROR MESSAGE 


ee eee tects icici ee 
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3316 011774 004737 021016 


Sala BIS Gira? Oekien 


«Bs BiB ieee? cena 


i. 
| 3659 000772 
BE ee woon soe 
«BS ee ary gaa 
ig be a 
a5 
Zi gisins ORR HDR 
3M3 012114 004737 020304 
Se Gisle Bae eae 
2 012130 000207 


# 


a 


es fie 


oooo 
bs bm pb be 


rururorororufroru 

FERURE RE 

che! 
Poe 


tao bet Pt ba bes bee he ee 


Bio 


Rane 


hs bs bh = be Be bm be he be hee 


insaas 
8 


red toes cab ee 


661582 


000244 


JSR PC, LINESE 


’ 
fa BR LACES 
v tT03, MASK 
ISR ’ SRETRY 
5, ‘LINESC 
1S JSR PC; LINE7 
i 
2s J ,LINEGD 
BR 1§ 
REPORT 'IAE’ ERROR 
IREER: JSR PC, LINEL 
ISPLY 


WLEER is " NEL 
JSR Ps, LINE 

18 s INCTOT 

PC, LINE 


FMTER: JSR PC, LINE] 
DISPLY ,EM26 
je Pe. Ng 
JSR PC’LINEY 
BIT {T14, SRPCS2(RO 
BEQ rl 
JSR , LINES 

an ats 
JSR PC; LINE7 
RTS PC 


; HE 
?PRINT L 


Bune 


LG LINE 7 OF ERROR MESSAGE 


iBe NT LINE 6D OF ERROR MESSAGE 
“FINISH ERROR MESSAGE 


sPRINT LINE } OF ERROR MESSAGE 
$ T WE 
PRINT LINE 2 OF ERROR 


ar the 8 Bath ee 


gay al LINE 1 OF ERROR MESSAGE 
;FORMAT ERROR 
ayes 





iat aot os emenn tue 
Pa ae count 
;PRINT LINE 7 OF ERROR MESSAGE 


fey LINE 1 OF conan MESSAGE 


psoas esas 


if sit cee eMail eo = 


ee ee a eee 


a 


- i rr - 
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a" a BP i : 


RTS 
;PROCESS CONTROL/INTERFACE TRANSFER ERROR 
004737 Oe20240 TRFER: JSR PC, LINE ;PRINT LINE 1 OF Sete FE SSAGE 
> MU 


012272 
ie ire fee a fetes au HE: 








I a: 
BISSIE Goasy Geaien Tee Be’ tnetor 
Me fists 121400 000244 BIT {Tis!e1T13!81T4¢B! eee ;"DLT", UPE’, "MXF*, "MDPE’ SET ? 

ci 
lesse O1 000003 001252 MOV RETRY eT ae 
ie fee oe Bolom BIE 
1 ets ; RETRY UNSUCESSEUL 
Olesse OON737 021740 JSR PC, LINEGC iPRINT ie 
B1S3e8 OON737 021746 is: 3a Perineco = EPRIAT'L Fin NPESSncE 
012364 004737 Oeete2 25: JSR PC,LINE7 :PRINT LINE 7 OF ERROR ME 
012370 000207 RTS = PC 
;PROCESS *SKI’ OR ’OCYL’ ERRORS 

012372 004737 o20240 SKIER: JSR PC, LINEL sPRIN LINE 1 OF ERROR RESSAGE 


iS ee ie te, 
ies Ee EE aie i 


;REPORT WRITE CLOCK FAILURE (’WCF’) 





PELE LE SS EEeP RSPR RESET Litas URS R ES Ss 


5 


areata 
=) 


os Ge ORE rem PEGE! RNA er ae 
Si HS Bee wri, BITE Sane ee, 
1 


eee 
ce Bee be eu, | ULM Le Bae tea 
Pie ies Of oe fee 
id 


S568 


JSR PC, SRetey 


e dr i me 


L 
1$: = PC’LINE? ‘PRINT CINE OF ERROR MESSAGE 
BeNeae 021746 2s: J + Tene ;PRINT LINE 6D OF ERROR MESSAGE 


RRTSAEE 


eee 


KO6 
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ORDER 
ee er ressce 
FoF ERROR MESSAGE 


COUNT 
es 
be I 
tite 
IBA TF ROT OR IF PROCESSING *OCKER’ 


Vy 

PRINT LIN oe chee resem 
ACAN T MATCH DATA WITH PATTERN’ 
‘HEADER FOR DATA PRINTOUT 


iREPOAT Ave Gch MESSACE 
Lin A Ei 


SRE STEY < 
. & age 
5 : Pat ho ho. 6 
a te 2 oe = om s~ LS -§&§ = & SS .. - vie 
oe ee ee ee 
5 sae ee ae i Be Se LES pe ce 
getseansoe § Paste ern Skis es ey epee aey 
ua oa z Pa >>> > bo > > > 
S Boomensrgnne ; Syninon.anlaoba shaken leslanban lon 
Sg 5 3 
. 3 ay £ § 48 


+ ddodehclelehebeleles 
Se Bee eee 
AGEN RITE eee 


a hd td ts Ht tt YO a me ag ey a dd dd td a et et ed eg td et td et te 
co 0OaD OOo000000 OOOO O00 90000000000 00000000000 00000 0800 


SSR PRE SEEDED EERE E RE DOR DUDE SDE TE EEDD scatadiiiadied 


mm ee ee ee 


PO |4-0ZR 0-8, RPOA/S/6 tau TT -DRIVE EXERCISER macy LL 27( 1006) LOE ., 11:01 PAGE 80 
99009) FBSIEB., F ICATOR 
Hee hee 001414 B81 ee Er LIntt peer fo al LIMIT 
;CHECK ERROR BITS IN THE RH11 & RPOY/S/6 REGISTERS 
000234 CKERR: BIT #0000, , SRPCS1(RO) F 'TRE’ OR ’MCPE’ SET 
000244 I 8177400, srecs2criy Teepe 4 





EPEREPER ERECT y 


Pet Os Be be bm fs bes ee bm Bao few f= f= Pm = = bP pee 


BSR R ELI doi e ia 
peeks 


ae 
age 
Races SSE 2E 
rs 

Ee 


if 
4100 00141 
4} af i SC’ OR 'TRE’ NOT SET 
W104 ; Ten Per T ?PRINT L 
w10e HE aoa Jee Pe INCTOT r ie re TOTAL ant 
41 1 JSR PC}LI LINE MESSAGE 
4198 i poaeee 2s: RTS pc’ 
aio ;CHECK BUS ADDRESS REGISTER & an COUNT REGISTER 
we RI ety mmm ms: ay RCTRD) aa 
dis ot iis nett ae a oye i Seek inl 
4116 O13144 16 000006 ADD SBUF(RO) (SP); L COCATION 
4117 ot 150 000240 CMP (SP)+, SRPBACRO) : ebORESS ? 
Hig 131 ae a BEQ baat ; 
dies bisies rae 4 Riese : thes uta” On WORD t eee 
aig aie ite et JSR Pte ener te tf Ferran esate 
iiss Ble Bie pests NT FEES Pc 
Hee 1 2s: RTS PC 
ties ;COMPARE THE BUFFER 
I SEB gg me me os se ir cco Bp 
ut3a B13898 329% BBARBS ies7o0 AAbaro: BY?  sculasme «fearon TD sere DDICRTOR 
413 013240 001401 BEd 1$ jBR_IF NOT 
ki ee boat? 1S: CL TR iF Pae e ERROR CB UNTER 
41 16001 (RO), RI : BUFFER 


SS 
4139 013254 016037 000020 001312 MOV SWROL(ROS , CMCNT ' ;WORD COUNT TO WORKING LOCATION 


ae ne ee - | 


RPOY MULTI 
Pil Pit ta 11:04 
013262 





ae 


R 
e 


177776 


165400 





CMDAT : 


4§: 


SS: 


pmanconcae 


SRPWC (RO), CHCNT 


pet 


an, 
a 


BIBSVseSesEsIes 
gattates =A = 


BRS 
5 3 
o£ 


2 
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;CALCULATE ACTUAL WORDS 


iy oa WORKING TOCRTION 
ADORESSES TO WORKING LOCNS 


a PRESTR ina LIM WAL 
He ad ene 


; at a | aiaghecnaettaolppitecte dee 
IT IS 
THAN, USE REMAINING BUFFER 


gas Fun 
DE WORD COUNT 
& DATA? 
CYLINDER 
OK 
SECTOR & TRACK 


KEY WORD ZERO? 
FIT 


EU ee LENGTH FROM SIZE 


Hat Wy gt LEAST 9 HORE WORDS TO cHEce 


eat te ag a 


;REPORT THE N ERROR 
; CHECK THE TOF HEADER 
NS, 

’ 


NO MATCH WITH PATTERN MADE 
PA 

ae ca 

WITH PATTERN 


COUNT 
pecreren PATT POS COUNT 
;BR I A 
;RESTART THE PATTERN 
;1S MISCOMPARED CHARACTER=0 


deco Goan hme fos pee fe ht bee Be fee ae pe fe oe ee tee 


SSSSse Sse enna even en 
: BR 


bee bs Bm fm 2 Bee des ee fe Gee fo ee fee ee 


PARDEE! 


Simrad cescecnegaancanangeces & 
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BEQ 6$ ;BR_IF YES 





177777 001276 MOV 8-1, ZROIND :SET NON-ZERO MISCOMPARED INOCATOR 
90 gRCTR ; THE ERROR COUNTER 
a ‘ COMPARE 
001300 6$ TSTB = FRSTER rst ? 
BN ;BR IF NOT 
001276 CLR IND ; ;SET_ THE JNOICATOR 
304 HOV » BaVERG ; 
001276 7s: TST ZROIND tANY RISCOMPARTONS NOT ZEROS * 
013742 iss PC, CMPRT fai} au 
001312 8S TST CMCNT 3A BO. 
oo00024 000005 ee (RO), #5 ae FR HEADER & DATA 
: 
7 a ie 000026 ee: E sae. 4 DREIENT SECTOR MAX ? 
BLO CMSTR ;BR_IF NOT GREATER THAN MAX 
{pesse Betis fhe ‘ ine 
123727 001317 oo0023 CMPB Os CT RK, #19. TRACK GREA THAN MAX ? 
1 BLO TR 3 Peer Ti NO 
rl 001317 CLRB = CNTRK TRACK ROBES 
005227 001314 INC CMCYL CYLINDER ADDRESS 
000137 013324 IMP CMSTR ONT NUE NOTIN WITH COMPARE 
014216 CMPRX: 138 , ENDCMP *PRINT LAST LINE IF ERRORS 
; TYPE DATA COMPARE ERRORS 
pOs7 77 001302 CMPRT: lal VERI iPRIYT SaveD VALUES ? 
105737 001300 TSTB = FRSTER aie ERROR? 
ite ChE 1S P ‘ge ‘Pant Tilia. nessace “3 ice 
000422 is BR EXIT 
1BeYe MOY ORB =C8P) ttPuSH Re ON STACK 
013701 901302 HOV SA R1,RL of Se 
Reaoes Bf JSR Beas . : INITI SSAGE INFO 
4120 JSR PC : 
ea Tes ee P woccorin 
012605 MOV (SP)+, Re : POP STACK ie RS 
cha, 014120 Hey be : RERAr Bf MESSAGE 
000207 RTS : RETURN 
105737 001300 4§ TSTB = FRRSTER ‘FIRST ERROR ? 
100425 I ‘BR IF NOT 


mm a ee oe + Cn  ——— 


a 
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DZRJ0@.P11 ‘24-MAY- 
Putt IF Ft sanell 'DCK’ ERROR 
LINEL 
. L 
*L res a rene 
JSR pyre ;PR 
Ss: (Sey yLI PROCESSING "DCK’ ERROR 
a 6S: 8 ee ' ; HEADER 
001300 MOV b-1,FRSTER ; FLAG 
ices 7$: RTS PC 
gS: ' MIT ; QUT LIK MIT REACHED ? 
| co DEC LIMIT ; IT 
| 164776 9S BF SHOT, 2SMR Barat ALL ALIN ERRORS ? 
: fF ee 
10$: MOV Ri,-(SP) : 
en Se SC 
MOV - ma ; DATA ON THE STACK 
2S aed LIN ),-(SP) ie DATA 
i379 JSR Pe Cindct St IT 
4280 DISPLY ,SCRLF ; 
4281 RTS Pc : RETURN 
me LAST LINE OF COMPARE ERROR REPORTING 
4285 014216 105737 001301 ENOCMP: TSTB  FRSTER+1 ANY COMPARE ERRORS FOUND ” 
4286 OiNezs 1417 BEQ es Be IFN Nor 
4287 O142o4 001306 TST TR ae 
cee 1e30 1410 Q 3 IF bast MATCH PATTERN 
4o3g i ie ier a teed ne (SP) : 
4291 Re: 4 34 ISR ‘ LIMDEC 
4543 1 7 eaea 18: , INCTOT TOTAL ERROR COUN 
4294 014256 004737 Oerd2e2 JSR PC’ LINE? :PRINT LINE 7 OF ERROR SeSCAGE 
4295 014262 000207 2s: RTS PC : RETURN 
isa 
4298 s ROUTINE TO MATCH THE DATA WITH A PATTERN 
i5e0 "MOV #BUFFER, R1 ;BUFFER ADORESS 
4301 ; JSR PC, MATCH 
4302 ; RETURN ;PATTERN ADDRESS IN RY 
1x3 : RETURNe :COULDN’T MATCH PATTERN 
4305 014264 01014 MATCH: MOV R1, -(SP) : R1 ON THE STACK 
4306 014266 012704 OO0044 MOV #44 RY : PAT TABLE INDEX 
4307 014272 011601 1S: MOV (SP},R1 :RELOAD R1 


4 


24-MAY- 
Gives bree iene of 
gimme perm comms 
GIs lake ee 
is 00137 one7e2 eb 
ie ie oe en 
ee Tes mt 
;USE ECC TO 
1 1 001322 ECC 
gue" 5 
Gite Bere ponee ma 
Gites rals ee 
Hes Fy BER coos |B 
al 1 qa 
HES (BR coin ome se 
001320 
Ginn Bee Be Ce 
ee OBE 
i is 
Gee eee =, 
ateig rs 
Nee 
e 
bless 
aliens 


RRS RGRNRR ORO TERESI AAS SeE RanaanecmaeganReReccccececcng f 


5 ase SRce BEuboe sue 
: 


ea 
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CO? 
26-MAY-77 11:01 PAGE 64 


STHOAT RRS Or PATTERN SORES ey arc 


eaLSe, (RS)+ I ATIB8 19 O84 PATTERN 
is T SS cieeethc? TRY NEXT PATTERN 
Foam - rhs ves 

ae Sa al T RETURN ADDRESS 


CORRECT THE DATA ERROR 


Sia ied ae june 


-(SP) STACK LOCN 

oe (SP) 
L XFERED BY SECTOR SIZE 

($F) ihe OR XFERED ? 

tS) INTO NUMBER OF BYTES 

(SP) .ECSE ae reid Ten RESIDUE 

— 9S i HEAD & DATA 
ECSEC ae Ribs a fat BYTES) BACK 

ono, ECSEC A CA SIZE (IN BYTES) 


Ege 


ly WORD COUNT LOCATION 
HE ate ECBIT 


Bet gel . 
fe Wat 2 Bla 
ox: gence "ne WORD COUNT 
rttni TA F 
GSE Pawo at a ALT lea 
NOT TA were IT 
ee ee, 
a BIT OFFSET. EQUAL SRO 
ECBIT ;DECREMENT THE BIT OFFSET COUNT 


mm mn ee ee 


- 











iat + es BUR’ © NEXT WORD ? 
Bea ;BR_IF BUF Y IN ONE WORD 
mo a ss ' 
are ADORESS | 
000414 BR * PRINT C 
Big apee ome Sy : soc 
Mere 164410 BIC : TS FROM UPPER MASK | 
O01 365 164402 ie FEISK 1, SE CHRD gore BITS FROM DATA WORD | 
104414 052033 EcC1: OISPLY ,LINIOH : | 
01 1330 nov CURD, = (SP) ‘PUT UT ECARD ON THE STACK | 
nid 15 DISPLY ,LINSP : 
ae may tiacto™ A Fegegom THe stax 
104414 15 DISPLY ,LINSP : | 
oir ies "ee SE CHRD .- (SP) ;PUT ON THE STACK | 
104414 i DISPLY Uther : 
: 001336 qs! ECHRD! iPRINT THe NEXT WORD ? 
ryt 001165 DISPLY ,SCRLF > CR-LF 
3% HOV CHRD 1.-(SP) His E al THE STACK 
104414 DISPLY CINGP : 
oie oF HOV coal CAD! ON THE STACK 
Toi Bey Pf eee 
177% MOV aeCH D1 ,=(SP) : CWRO1 on THE STACK 
4 bisety i me 
14 051726 Ecce: DISPLY »LINLOC per BURST WAS NOT TRANSFERED TO MEMORY 
hbase? + BfePLY ,§CRL TURN 
ROUTINE TO DISPLAY THE SECTOR en GAVE THE HARD ERROR 
108 93077 000010 164030 PRTBAD: gry , aSWR : RINT Mi, BAD SECTOR ? 
016001 o00240 MOV SRPBA(RO),R1  ;PUT THE END ADDRESS INT 
O1604% 000020 MOV SWROL(RO)’-(SP) ;FIND THE BEGINNING OF THe ReecTOR 
22 066016 000236 ADD SRPWC(RO))(SP) SUBTRACT THE WORDS NOT TRANSFERED 


nen 


———— 


Pll = @4-MAY-77 11:04 


— oe 


Fe be ee ee pee ee fe dee 
hogy esi sisaat 
aC £ 


034160 


eres 


SSSSSEECEREERE ROOURIDDRORSS Se RESALE SRR SDR RNS CIBORER ; 


4475 015300 111037 044770 


RPO4/S/6 MULTI-DRIVE ogy 


044772 


? 


f 
MACY11 27(1006) 26-MAY-77 11:01 PAGE 8 
PROGRAM 


abe g58t cra), -csp) "BG od ee TaB eo YAREMP RED ey THE SECTOR Size 
i GhINO 
BPO i? I "= CORPLETE, CTOR TRANSFERED 
ASL (SP) ‘ : re UAL SEC OR SIZE INTO BYTE COUNT 
Bee SP / t401 te SIZING ne 
Be HOR) as ERED tton RESCH SBE 
4 
2¢: BHR $4048 THE Stack PorhieR — 
3S: we atti ipo a COUNT 
: MOV R1;-(SP) Por Te ia or We Stick 
4g: oar By SAPO (ROD ia CTOR ? 
; BEQ cs’ iit cP 
aS el thie =¢ ) ive THE DATA ON THE STACK 
J pee THOGT THE DATA 
DEC Re THE HORIZONTAL COUNT 
BNE iy 4§ , 98 IP WOT AT THE EMO OF THE Line 
Be sgt STORE THE WORDS/LINE COUNT 
SS: DISPLY aScRLF iit WHAT REMAINS IN THE BUFFER 
6S: 
;ROUTINE TO DO AN RTC - DRIVE SELECTED IN RO 
iC Mes MOV ;DPB ADDRESS 
: JSR Pe RTNCTR 
: RETURN 
RTNCTR: MOVB = (RO), GENDPB sMOVE THE DRIVE 8 # TO THE GENERAL DPB 
RTC , GENDPB+SCOMAD ; COMMAND ¢ 
1S: J RO. ROSH 
NOPB ae FOR ORDER 
R is : DRIVER DIDN’T ACCEPT ORDER 
; ROUTINE TO DO A RECALIBRATE - DRIVE SELECTED IN RO 
; MOV ;DPB ADDRESS 
: JSR PC, SO RECALT 
; RETURN 
;0R 
; MOV :DPB ADDRESS 
: MOVB sDRIVE, GENDPB  ;DRIVE ADDRESS 
: JOR ony PC C, RECALTO 
RECALT: MOVB (RO), GENDPB ;MOVE THE DRIVE ® TO THE GENERAL OPB 


sian F 


Sag eaRE 


= 
B 


FRIRSIRSISE RRR RAR EAS 


Ce ee er 
WONOWN fw 


ais 


A 
= 


-; 
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015304 112737 000107 044772 RECALO: MOVB sRECAL enarevacone *RELCALIBRATE COMMAND 
01 12 OONO3? 034160 18: JSR __—-RO, RPO4 BS VRokeos ti 
8 boars 1$ Br i nCuEPY Th THE ORDER 
015322 045006 2s: TST bENDPR+STATUS -SEE IF FINI 
O1 325 001775 BEG es BE, IF NOT FINISHED 

sQFFSET THE DRIVE IN RO (OFFSET CODE PRELOADED INTO ’RPOF’) 

: nor a alee WT ASpESEL CODE 

: RETURN 
015332 111037 044770 OFFST: MOVB (RO), GENDPB “DRIVE # TO GENERAL DPB 
Giese dosage GERLES ON as, FAP Arma eek 
01 044770 i be yADORESS, FOR ORDE 
01 000774 1$ DIDN’T AccePT™ ORDER 
015354 000207 RTS PC 

UTILITY READ HEADER ROUTINE 

: MY CRRERTER -ccp) SER TORCABSRess 

; 3 Lg =P ty ; TRACK ADDRESS 

; URN 
Bese ted BBaBds BueBg4 REAOHO: fave Gis} SBE SIRE LEC Ton ABbRess 
Diea7e bias? bon nove YL_;C TROER ADDRESS 
ee 13737 Bobi7a | Guar7S Nove sere cecum 
15412 bosa37 034160 1S JSR RO, RPOY spaIVeR ENTE 
gies Bern aa Be SEP cove 
OiBtee 005737 045006 2s: TSI 43 opp+status PIN Sebt 
15430 01 oo00c2 (SP)+,2(SP) ADJUST STACK FOR RETURN 
fists Bees tps ost 

jRETRY THE PRESENT OPERATION 

Aa Hoy SCOUNT RETRY ;RETRY COUNT 

RETURN a UNSUCESSFUL 

: RDTEs 8 BALE TRE'EsFREOROOnERRE DHRC 
Tey44 Dos7e0 DOBOTE SgeTRY: JOR SFafus cu) i BEOER FINISHED? 
015450 001775 BEQ 1S :BR IF NOT 


ee 


ARS ARaRA NTA NIANNNERRRRERRRRIINIMANIENIEMIERION 5 


; 


fh bh fe fe a fe Pe te pee foe bh pe ee ae hee 


cenantman eerrrer 


eS Se a ee ee oo 


5 SSeS EEE 
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Be ey em 
, (SP) 


S 
000016 2S: I Str, sraruscron'4 1D Seve TERMINATE NORMALLY ? 
TST eh Pe MASK O ? 
Rot Sheers cro) ee ike THAT THE DRIVE ERROR REG IS CLEAR 
a ipgrer 
000250 3s: IT \SRPERI(RO) } 
BEQ 6S BR IF NOT 
4S: Ince RETRY+ | ; INCREMENT RETRY COUNT 
001253 TRY, RETRY+1 
BNE SRETRY BR IF MOT DONE 
be ye 3 L sR TUR I T ERROR 
fea eet Ne? iBaTRT LIME Oe 
TST (SP)+ ADJUST STACK POINTER FOR DIRECT RETURN 
7S: BISPLY LIN@M :* BI ERROR DURING RETRY’ 
IMP ERPRC1 REPORT THE ERROR 
: ROUTINE TO UPDATE THE PERFORMANCE SUMMARY STATISTICS 
: MOV ;DPB ADDRESS 
: JSR PC, are Tat rs 
: RETURN 
STATIS: BIT #81707! B1T06, STATUS(RQ) “CHECK FOR DATA TERMINATION 
BEQ as F NOT Te TERMINAT , Se 
SUB (RO) 0) FACTOR slits THE PENTTIAL ADDRESS 
ASR ACTOR T My WORD COUNT 
ADD FACTOR sTRascro! TE WOR WORD COUNT 
BIT Deg nob) a an 
BNE 2g ohne att cae 
TST AUTOCK 5 AUTO WR TE CKS BEING PERFORMED 
Ble Hocios.n1 [Pret drem 
CHPB sc (RO), #1 TION AN AUTOMATIC WRITE CHECK ? 
( TRANSIRD WORDS WRITTEN 
a cea 
1S: ADD FACTOR, $READ(RO)’ “year THE READ WORD COUNT 
2S: ore a Bab earcacRdo” -DID MID-TRANSFER SEEK OCCUR 
ADD #1, SPOSIT(RO) spe JE NOT SEEK COUNT 
ADC $POS1T+2(RO) ADD CARRY TO UPPER WORD 
3S: RTS PC 
FACTOR: .WORD 0 ;USED FOR WORDS TRANSFERED 
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;ROUTINE TO GET A BUFFER 
;CALL: 


ees iRTBAR THE STACK 


;BUFFER ADORESS WILL eS ON THE STACK 
;STACK WILL BE ZERO IF NO BUFFER AVAILABLE 


ch 
ear efor RoDRESS OCATION TABLE 


Bian: ise dh THERE fg A BLOCK LARGE ENOUGH 
RP Ole ee" 


»R1 ; INCREMENT TABLE POINTER 


aa 


egress 
ueoe 

as 

5 


fale olelal= ola) =)=)=) 
ee ee ee 
St 
5 


FRERSTONIN 


ccscesencesansssansene 
Figer 





S22 9RSERS RAR RURSDR SRO RNPG ERIS. mee 


tee pn a8: tha 10:57) m., {RRTER sabe fae sTHE 
ih BiG Good Sep. a ends a 
Weis 1849 a 00 SA CRD), (RL) ; 2s 
4613 016020 000020 SURDL (RO) ; RETURN ByTES 16 WORDS 
4614 O01 4 s 
4615 Ol 001616 4§: BUF TBL Rela ENTRIES 
oi fie i bara op O° 
18 i b LAST ENTRY 
iee8 Ot eae 000004 Rd RS i DOV NT wi REXT ENTR 
uest Bien cs (R3)+, (RL)+ hove 
4622 0160SD 012321 (R3)+;(R1)+ 
4623 016052 005302 R2 ;DE ABLE COUNT 
4624 O16054 go1374 c$ : CONT Ne IF NOT AT END OF TABLE 
4625 16056 alsete 6S: Bite iecloe RS 
se9) Oletee ea _ wn bays sa 
4631 ;ROUTINE TO PUT BUFFER BACK IN TABLE 
46,32 CALL: bea rn Me 
4635 aeturn *°? 
4637 016066 010146 RELBUF: MOV R1,-(SP) Rl 
oe BM Hise BERD ee Rr me 
464 rat ane oo0020 oH (RO) ,R3 i AF SroRese 
eu BIEIEE RSS fro. UR Is con 
4643 016110 066003 000006 ADD SBUF (RO) ,R3 ADDRESS OF NIBHERCA ADJACENT BLOCK 


| Bbabda? FH? + aBPRAYSG5 HYLTI-DRIVE EXERCISER. hagyII 27( 1006) ae 11:01 PAGE 90 


016114 021103 1S: CMP (RL), ,R3 ;UPPER ADJACENT BLOCK 
$3 RIPIS ezhi om Ben eReren? ponte. 
48 BieiSS Bea TT 000006 BO ue co) (R1) ‘bor tee ee Nox INTO THE TABLE 
Fi ata ey p00 oo0002 the i oneal 
: RROIREENT BLOC IS IN THE T 
SS BENE BRU? ooo, = as: fy Pharm cmp fib ee Ona me 
4655 016156 016021 000020 MOV Ser cng), (RL )+ Bt TO ac 
er HEI BY coo BB i “a 
iet 16011 000006 4S: MOV (RO),(RI) =} BUFFER IS LOWER ADJACENT 
34 Mase rte o00020 000002 me 00 SUROL J,20R1) | 
1 1 1 001616 ‘ MOV BUFTBL Re ; oe 
a a 
eo Bites ety me gab Chir: ‘ae entry 
ect Bltsm Gems om Resta Ent 
4670 016236 001366 BNE 63 CONTINUE LOOKING 
105726 St 5 he STACK POINTER 
r 8S: MOV { )+,R2 TORE R2 
ADD 2(R1),2(RS) ; INCREMENT LOWER BLOCK LENGTH 
ADD #4) RS INCREMENT TO NEXT ENTRY 
ee eee aS 
DEC R2 DECREMENT ENTRY COUNT 
BNE F NOT NOT {FINISHED 
10S: HOV (3+, RI Re 


yg THE ASSIGNED BUFFER (IF WRITE OR WRITE CHECK ORDER) 


v 

: Rov SBUFADR, SBUF(RO)’ BEPPER ADDRESS INTO THE DPB 
; #PATTERN aur)! PATTERN CODE 

; PC, FILBUF 

: URN 

FILBUF: SAVREG ;SAVE THE REGISTERS 


BITB gorrae, SCODE(RO)' ;SEE IF READ ORDER 


is: FY Buran nGRF OORESS. 


BITB #BITOO, Be an)! -SEE IF WRITE OEADER TYPE ORDER 





—— ee —— — -<- - ee eee 


a ce ee rae or 
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001413 BEQ 23 ad ;BR i NOT 
xc Hien e 
ip) fs BMAD 
1634 $ ct ),(RLI+ 5 Le, 
if 3 tt LR ( 3 
4706 016354 SUB 84, Re ; THE WORD CBO 
4 1 BLE 45 ; FAD OF PATTERN 
4 1 2s: RY 
4 1 MOVB S$PATTC(RO),RY mR PATTERN ADDRESS 
ait SIA a aS 
ue He 3S: HOV tose (RL) ; TTERN INTO THE BUFFER 
4714 Ol FE i BR I = 0) 
471 016406 DEC R3 ipecmpen THE PATTERN COUNT 
iy Sietl mi ag 
wis 1e42 BR inte (AS ENT S PRT THE PATTERN 
Me atte 10441 4S: SREG aie THe REG ESTERS 
4 7el 016426 000207 RTS PC 
4723 START THE ORDER FOR THE OFB IN RO 
"MOV 8O0PB, RO ;DPB ADDRESS 
PC, GODRIV 
-(SP) . 
FBS Rat ay DPB ADDRESS 
RO, ‘CALL THE DRIVE HANDLER an 
Belven he YecTED neath 
(SP)+,RO * REST 
Sleemcstia) INCREMENT THE OPERATION COUNT 
$P 5{Ro) ) SEV. AO} :DID ORDER REQUIRE A CYLINDER CHANGE 
#1.S$POSIT(RO) INC ENENT SEEK COUNT 
740 005560 ADC $P0S1T+2(RD) ADD ANY CARRY 
pa 016504 000207 3S: RTS PC 
u7u3 s GENERATE PARAMETERS FOR THE OPERATION 
4745 : MOV #0PB, RO ;DPB ADDRESS 
u7Me JSR _—- PC, SELPAR 
47M? : RETURN 
4 1 SELPAR: PC THE NUMBER GENERATOR 
Gree BEETS faers> Beedo 62420 Bit est aeUR ise Ir sho'seT 
res Sleeee un a nities E orvisoe ~ 
4 1 1 000010 1S: MOV $10,RS TE SELECTION DIVISOR “* 
Wey Oleese feossy | bainee a re ts BRINE IF READ OR WRITE 
d7ee Bleese | 105085 Sis og BR IF’ READ 


. a ta pe ee ee —_ 


4756 016540 004737 
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dee bee ARBRE cxcsos Be, ilomuses (SORTA HRD YORERTAON 
" H 
Bt een eee 
| ize) te il anni 3S: MOVE  RS/SNCODE(RO) ; ION 18 CONTROL BLOCK 
4763 ;GENERATE A RANDOM SECTOR ADDRESS BETWEEN VALUES ’MINSEC’ & "MAXSEC’ 
| 
7 SUS SRR SEBS SEE EE AE ER TE awe 
4768 tet 1 3 000120 SUB STNSECCRO) ,RS Bho tRact MIN eal SECTOR ADDRESS 
4769 C1660 ee BPL 1$ ma BR IF Hea thE MIN 
mee alesle 027066 " 1 pot ieee frenence 0 oe fe lero 
a igs ee Be EE ei ne 
’ ° ’ 
ure Oleeae 162705 000026 sue #22. ,RS : CORRECT VALUE 
477 016636 110560 000076 2S: MOVB RS,SNSEC(RO)  § ;STORE SECTOR ADORESS IN DPB 
778 : GENERATE A RANDOM TRACK ADDRESS BETWEEN VALUES "MINTRK’ & 'MAXTRK’ 
ube BiEeNE Boban p01 1 RANTRK: ms HON TRK CRD)? Re Yalta oro vari TRE sane ° 
oe tiga ieee om BE Elmers Eel Te ge 
wer Oleees air? 1S: ike a ene 5 FFERENCE TO USE AS DIVISOR 
4789 Beery Sports ADD RIATRACROD RS ; Ores, 
mer o1erts 162705 000023 its a fe cT VALUE | 
es 016712 110560 000077 2s: MOVB RS SATRK (RO) STORE TRACK ADDRESS IN DPB 
ire ;GENERATE A RANDOM CYLINDER ADDRESS BETWEEN VALUES ’MINCYL’ & ’MAXCYL’ 
St ee ote fle 
Woot Bievae 14 ett name RANCYL: NOV maxes Ora RS EN SM eC TRUER. ADDRESS 
sete Gigrg toeaoe 110 ‘ che MINCYL(RO),RS j ARINC YL AND PMAXCYL THE SAME ? 
Se HE tiie mou Be Rporcm.ns aia Ui Car OOS 
4806 O16 001350 ADD CYLIMT, RS * CORRECT 
4807 teres Ooacce 1S TNC : TO USE AS DIVISOR 
Wa03 O1E774 66005 pOOriB ABD ONTAGYLCRG),RS —'NEW CYLINDER ADDRESS” 
4810 017000 023705 001350 CMP ss CYLIMT,RS * 1S VALUE TOO LARGE ? 
4811 017004 101002 BHI :BR IF NOT 


eee 7 
| 


: 


cae 
ie 


SoSneee 


ee aE 
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SISFILERNS ESRNERaEURKLS 


NINNNNNSNNNSNSNSSNSSS 
chan anhaelonhand oul gud online antankankaniemtantee esd ata an 


es ae be be be ae bm be Pe ae Oe Fe fo he Pe f= P= FP Pe Fe ee 


a3 
Gh Eck 


ROR URIRRORS ESI ad ceo aae Gen seR MaO NNR Nee cre eee 


Re 


Shite 
OM 


ats 


— 
oO 
a 


Smee 
o 
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ati 


001424 


000104 
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« 2 Side, Fewer 
1Z jBR I T 
ee a 


Rou RAPA apo. cro)’ A Heads FReNSFER SIZE 
RANPAT ;CONTINUE WITH THE SELECTION 


BR 
GENERATE A RANDOM BUFFER LENGTH BETWEEN 4 & THE VALUE IN 'MAXDL’ 
RANSIZ: MOV MAXDL , RS ;GET SIZE 

TST >SELECT @ RANDOM WORD COUNT ? 

its : THE MAXIMUM SIZE 

Mn ie ca 

BNE 1 ihr ‘ ihe* 

JSR PC, SRAND :C THe RANDOM NUMBER GENERATOR 
1S: Ry BOE eo. (Ro) Beo TH TO CONTROL BLOCK 

MOV RS (SP) + NEW TH ON STACK FOR CHECK 

Ge 7 (SP) BaF tf PEP Fi gor 

BITB 81, SCODE (RO) iSEE IF ORDER IS A HEADER ORDER 

84, (SP) : 3 TO SECTOR SIZE 
2s JSR PC: LINKDV sDIVI ene Pee tOn SIZE 

MOV (SP)+, (SP) : ACK 

CMP (SP),04 ;SEE IF REMA 4 

Bats ie : Prive RANDOM TRANSFER SIZES ? 

Q Wesel : im 

SUB (SP), SNWROL(RO) *: WORD LENGTH DOWNWARD 

BR 45. ; CONT NUE 
3S: TST (SP)+ : Cc THE STACK POINTER 

PC Sano : THE NUMBER GENERATOR 
4g: a (SP)+ ‘CORRECT THE STACK POINTER 

CMPB 82, SNCODE(RO) ;SEE IF WRITE DATA 

BNE RANXIT ‘BR IF NOT WRITE DATA 


;GET A RANDOM PATTERN NUMBER 


mPa: ETE ag) LS TAME OEE ro conn ao 
RANXIT: MOV Be SNEXT (RO) oP Bakare TERS SELECTED INDICATOR 
RTS PC ; RETURN 
ROUTINE TO SELECT A WRITE (OR WRITE CHECK) OPERATION 
RANWRT: MOV #4, ; WRITE OPERATION LECTION DIVISOR 
JSR PC’ GETREM GE ECTION C 
TST autoc jARE WRITE CHECK ORDERS TO BE SELECTED 


; RANDOMLY 


cTOR Be iniffen OME 
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4868 017244 001403 BEQ 1S 88 IF THEY ARE 
17646 ARERR SB g,RS T WRITE CHECK ORDERS 
thee ritag 000001 1S: er at et CK SELECTED ? 

ooo002 000024 tte etme IOUS WRITE re 
ee: a ca wet ogre cv 
1 Sponge 000074 BICB $e, SNCODE Scopethoi ) C13, Hex xr ob 
Hab Gee goes Sy a 
Rt7338 teeing 000001 Bre #1,RS Rr fer WRITE HEADER 
017326 110560 000074 4g: MOVB RS,SNCODE(RO) ;SETUP ’NEXT’ CODE 
017332 house? Ss: RTS PC : RETURN 

;ROUTINE TO SELECT A PATTERN 
a eg ee 
01 rath TST RS’ SELECTED ? 
HS BS cso mo FE ldon aren cso 
01 000767 BR GETPAT 
017356 006305 1S: ASL RS : MAKE coe INTO TABLE INDEX 
017360 000207 RTS PC 


+ Ab a TO GET THE PREVIOUSLY SELECTED PARAMETER VALUES 


BRSSESS SESE RES SOR RRSRR EB Gand ca ee ae SHRED ROR IS ade Ieee 


ee 

: RETURN 
017362 O01 GETPAR: MOV. RS, -(SP) 
hie hae Be AO aD Se UT ES ce wr 
BiritS BEER MAB ERP EUS rc 
17g 4 1S is GET THE DECREMENTED SECTOR AND TRACK ADDRESSES 
he ee DOC MOVB (ois, Lee CTOR ADDRESS 
01744 en Hoy eat ) nie SEN CYLINDER 
ta Tienes FOvB (Ro), Scone {RO) paid babe OPERATION 
Bivues ieee HOV RACED) eg ODS Tepe NOEX 
017472 116060 MOVB ate TIC(RO) {PATTERN 
Bie Blea mY RSOES Are) IIR ROB ieee OOS 
017522 O16060 NOV SNARE (RO) ’ SURDM CRO) i BORD COLT FOR THE RH11 





SS ee ee 
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4924 017530 NEG SWROM (RO) ee pinta IT oan eee 
dese Bi5ed3 BASS ER BY = BF°ReodetRES : obPRat ron 
4927 017550 BEQ 3$ ae IF NOT : 
qo58 a vide 3s: a, Bertha : EY PAR fees LOADED’ INDICATOR 
a eee RTS ae ; RETURN 
;ROUTINE TO COMPRESS A LIST 
4934 *CALL: 
4935 : MOV SADORS, R1 COMPRESS LIST STARTING AT THIS ANDRESS 
4338 : JR PC, CMPRES 
: URN 

ia 017570 016111 oo0002 CMPRES: MOV 2(R1), (RL) COMPRESS THE TABLE IN Rl 
4940 017574 001403 BEQ 1 BR WHEN FOUND 
uous olveGs Raye C000 BRR if or 

01 BR S :CONTINUE COMPRESSING TABLE 
4343 017604 000207 1S: RTS PC : RETURN 
uaus j ROUTINE TO SETUP PARAMETERS FOR A SEQUENTIAL READ OR WRITE OF THE DISK 
4947 : MOV #0PB, RO ;DPB_ADDRESS 
wae if es MOV #-1,$PACK(RO) ;’WRITE PACK’ FLAG 
4950 : MOV $1,SPACK(RO) § ;’READ PACK’ FLAG 
4951 : JSR * WRTPK 
4952 : RETURN 

1 0047 24 WRTPK: PC -CYCLE THE RANDOM GENERATOR 
ugee Wea 0 13 COPERC Te CRO) fa Pest Bor RATION 
4955 17616 001007 BNE WRTPKL iBR F UPPER WORD OF COUNTER NOT ZERO 
m4 pt esa itary amin Soren :BR BIO ST OPERATION 
4959 017625 | 000026 TSTB SPACK(RO) *SEE WHICH - ’R’ OR 'W’ 

1 WRTPK IF 'W 
weet he TKS ??R? OPERATION 
13ee 17636 iit 000234 000027 WRTPKI1: MOVB SRPCSI (RO) , SPREVO( ); T PARAMETERS 

17644 De2364 ISR . THE De ED SECTOR AND TRACK ADDRESSES 
4964 017650 11 MOVE (SP), SPREVATI(RO) ;T Ss 
4965 017654 i teb60 000032 MOVE  (5P)+ VA(RO) ;SECTOR 
4966 017660 O01 000034 MOV srecet ), SPREVA+2IRD) ; CYLINDER 
4967 017666 016060 O00242 000010 MOV (RO);$SEC(RO) ;NEW SECTOR TRACK 

17674 016060 900270 000012 MOV SRPCA(RO)'S$CYL(RO) NEW Ines ADDRESS 
a8 1770 o j2 000106 CHP SCYL(RO) , MAXCYL (RO) Ste I rho END bey 
4971 peat 1piGo4 BHI Fi ip tf aaa THAN 'MAXCYL’ 
1378 17714 1 000011 000112 CMPB $TRK(RO) , MAXTRK (RO) SEE IF AT MAX TRACK 

1 iBiNee BLOS -BR IF NOT GREATER 
4974 01 11 000114 000011 1S: MOVB § MINTRK(RO),STRK(RO) ;RESET TRACK ADORESS 
4975 017732 } 16060 000120 000010 MOVB § MINSEC(RO),$SEC(RO) jRESET SECTOR ADDRESS 
4976 O1 16060 000110 o000ie MOV MINCYL(RO);SCYL(RO) $RESET CYLINDER SS 
4977 biz D2b666 J PC, EOP2 : DROP’ THE ORTVE (NORMAL TERMINATION) 
4978 O01 161160 BIT #SW04, JSWR 1S SWITCH 4 SET ? 
4979 017760 001003 2g BR IF SET 
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04 N PROGRAM 








t S & . = 
fer # 4 F : 5 
Bue for Ge ¥ 8 
Bo; H pt & ot BYEe RE. 
a ee ee 
soe * ei Bs: waety nag Ws Gee Ey 
mn EE HE oe E 5 7 
em ety Sy SEP ve waeted Ye E 
_: yer pete ects 
~ 5 ta} eS 
= Et oO SEP RACER DOES HSE RAE EE S 
= : 
ce Stare 
; See eS nh E Sabeubataeesee 


By Soy puPabtarQoeitart 


ROUTINE TO I 
IN THE BAD 
: . PC 
. TURN 
; RE TURN 
Rl 
#1 
(R1) 
i 
PC 
( 


MUL 
l: 


“~ 


geen he=79 


EF SENT 
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CO8 
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MACY11 27( 1006) 


RPO4/S/6 MULTI-DRIVE EXERCISER 
MAIN PROGRAM 


24-MAY-77 11:04 


MD-11-O0ZRJD-8 
OZRJDB.P11 


XXX’ 
= ’ MSG 
MSG 


Re 
Rl 


SIZE = XXXX ACTUAL NMBR WROS XFRD 
ON STACK 
ON aire 
ON STACK 
; p ECSTER STORAGE 
I 
T 
MNEMONTC 
wor , 
a 
SIGNIF 
PREVI 
CLEAR THE TABLE INDEX 


NDICATOR FOR THE IDENTIFICATION LINE 
THE RETURN 


200 STAR HN 


31 
T 
: RETURN 
35 SESSSSSSASSRASSSSSLEALEALERSHLESSSSR SSR RLRASARALASR SESS ASL SEES 


;SET THE 
.SBTTL ERROR MESSAGE GENERATION ROUTINES 


go = oon =e = “a 
“7 ae we BoE “3 
ay SB, : sents es es see 


sapbospfemngstena 


5 5 HNHHHHHHHHHHHIHIHIHIEHHHIIHIHIHHIHIHIIHHEHIHIEEHIHIEEHHiHEEEHEHEHEEHEHHE 
’ 
’ 
’ 
, 
J 
’ 
’ 
’ 
’ 
’ 
ST 


;PRINT LINE 1 OF ERROR MESSAGE: 


; BUS ADORESS OR WORD COUNT NOT CONSISTENT 
37RPBA = XXXXXX  RPWC = XXXXXX’ 


; HH: MM:SS’ 


’ 
i] 
, 
, 
J 
’ 
’ 
’ 

L 


6S: 


4 


-~- 


an OSS Ga 
a 


ae 
see EE EEE 


a 









DO8 


eras THE STA 
SS 


ERROR ADDRESS DEFINED AS BAD AREA 
STARDARD_RPON/S/6 REGISTER HEADER 
DRIVE NUMBER ON THE STACK 
IVE NUMBER 
I 
THE OPTIONAL REGISTERS ? 
STERS 
vie 
NG ADDRESS 
E ADORESS ? 
:FEUS ADDRESS AND WORD COUNT ARE NOT CONSISTENT” 


LOOK FOR THE OPCODE 
PPE br LEIS orem 
Mh 
NOEX 
wer 
TNOEX 
OF cant 
‘PRINT BAD SECTOR LINE ? 
a 


ey 

BE Lot 
“ Yo ya, by coos fig 
4 zag KEES g © EEEeo 
: setovs § ope cue SD Evireeem MY Buel 
Sy hepece ieee = te Backs ee SEE gan8r es 
te “atalrt ett 
-5 @ @ J ose 8 2 2 SB 85 wze °° 
- a en Bess Aba wuipowe.s Be ses st: 
=e Sranencesti niece n5gy8 aon ans fi g hdd ese 
= > > >>>>> > 
8 EciceaddaneheMenghhMOasbag yicghen cregencllnn cxevees 

me 

‘ 6 ¢ $4 : 2 ar: 


—_ 


: me : 
ans S al ae 


Be 
> ie 
oe 
L 


a 
— ce SMEs ae 


Rinna MN ANAT Sa Rh Be Ss so SF PPS 





RPOW/S/6 MULTI-DRIVE E 


eotomgah it 





li 
-Pil 


eletelelisietelieicioiclocivioiclcleleicleioiceliecirieiocliecteteielieletcteteteteteetetetetrertetryr 
CLSVELVASDASPUSDLSDASDASDASDUSDESD LIDESD LEPLSDUSD ASDASDASD LSD USDASDASDASDLSDESDASDUSPASDASDASDASDASDASDASDASD ASD ASPASDASD ASD ASD ASDA ASD AIDED 


ee a + ee -— -- a ee a ee ae 


a ee en nee ee re ne ie ee ne mm 


Ee 


SUPRISE ESEVRAL OH BSS 


o 
wo 


UU UU UT UT UT UU UU Ut Ut uw 
ee See Se See eee ee eee eee eee See eee 


BBQRRLGG=ASSBIRR PER =SISIIAaZIIAS 


BESS 


-Pll = @4-MAY-77 11:04 


022302 
0S2215 


001165 





160162 
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MESSAGE GENERATION ROUTINES 


ae gah ENOCT i BR dt THE STACK POINTER 
DISPLY ,LINSP ‘PRINT 2 SPACES 
TST tRS) sAT ENO OF LINE ? 
4S: BreeLy SRF tBR-LF 
RTS Pc : RETURN 


sPRINT LINE 3 OF ERROR MESSAGE 
:*ERROR AT CCC TT SS PREVIOUS ADR = CCC TT SS’ 


LINE3: DISPLY ,LINM3 sLINE 3 ENTRANCE 
BR LIN3.1 :FINISH PRINTOUT 

;PRINT LINE 3A OF ERROR MESSAGE 

:*START CYL = CCC END CYL = CCC’ 


LINE3A: DISPLY ,LINN3 LINE 3A ENTRANCE 
BR CIN3.1 *FINISH ERROR LINE 


;PRINT LINE 3B OF ERROR MESSAGE 
;’START CYL = CCC E YL = CCC ACTUAL CYL = CCC’ 


ND C 
LINE3B: JSR PC,LIN3.3 ;LINE 36 ENTRANCE 
DISPLY 


SCRLF 
Pc 
PRINT LINE 3C_OF ERROR MESSAGE 
START CYL = CCC END CYL = CCC ACTUAL CYL = CCC TRK = TT’ 
LINE3C: JSR PC,LIN3.3 LINE 3C ENTRANCE 
JMP LIA3.4 :FINISH MESSAGE 


;PRINT LINE 30 OF ERROR MESSAGE 
;RPBA = XXXXXX RPWC = XXXXXX’ 


LINE3O: BIT sSWOS,@SWR ;SWITCH S SET ? 
1S ;BR IF IT 1S 


rs 7 


REG CONTENTS 


JSR PC, LINOCT ; CONVERT TO OCTAL AND TYPE IT 
DISPLY .LINW3 :? =’ 
MOV $RPWC(RO),-(SP) ;WORD COUNT REGISTER CONTENTS 
ISR PC, LINOCT ‘CONVERT TO OCTAL AND TYPE IT 
DISPLY ,SCRLF 
1S: RTS PC 
PRINT LINE 3E OF ERROR MESSAGE 
‘START CYL = CCC START TRK = TT START SEC = SS’ 
LINE3E: DISPLY ,LINS3 : START cyt =’ 
MOV $CYL(RO:.-(SP) ;MOVE CYL TO STACK 
ISR PC LIMvEC *TYPE IT IN DECIMAL 
DISPLY ,LivsP ; SPACES 
OISPLY ‘LINST3 : START TRK =’ 
CLR ~(SP) ‘CLEAR STACK 


R aor ON STACK 
DECIMAL 
NT TRACK AND SECTOR ADDRESSES 


SIRED CYLINDER ADDRESS ON THE STACK 


PUT SECTOR/TRACK ADDRESS ON THE STACK 


— A>e 


Rovers: fae tau tae 


3 
S 2 GF ge 
oa 5, Rie os Ow SFR Io Bows Ze 
é hz osBe ay Se ee wSzorz 
3 2 te Bio Ne 8 BBS BE ESS aoe 
= 5See StBredee  apetetettvtubeute = yhcety 
bo, RRO AG aH ae a -fs-fre “See fests <, Greer 
con! 5 - = - 2. © 6 Gee es 
er .. » & 3 9%, a Se © Ae 
ba & , OY y gs se 5 . 
Lite “~~ ~~ ‘5 . ames o & z ea. 5 ‘; 
38 88.3 8¢ ; ? 2 


Se ae eae ge Se. 


NEN 
CC(RO) 
PC,LINDEC 


LINS3 
$PREVA+2(RO) 
Pet 
$rp 


GENERA 
cL 
i 
C 
PC 
PRINT LINE 3F OF ERROR MESSAGE 
BEQ 


;’CCC TT SS_ PREV ADR = CCC TT SS’ 


LIN3.1: 


;"RPDA = XXXXXX 


160026 LINESF: BIT 
1$ 


; START CYL = CCC 


LIN3.3: DISPLY 
MOV 
Dfspvy 
MOV 
JSR 


ERROR ME 


000040 


a Se em 
Seiesee| «= (ieiisce) © Seceeeescesegsciy | ESLES 
ENIRARETT RG == RUSREAR AAAS || Riueac 


eh eh a at ah ed gg oy Ht dd eh Od ed dt dd eg a ted eee 


; SSSSSSSBSSY  BAYSSSSSSSMSRSSSSNSS  8SYS8SS 
Fr OOOO SOO OS SOCRO SMO 


RPO4/S/6 MULTI-DRIVE EXERCISER 
24-MAY-77 11:04 


Pll 
oe 
: 
oe 
Ge 


MO-11-O0ZRJD-8, 
00 
A 
O76 
102 


a ee we ee ee 


? 
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Pll 24-MAY-77 11:04 ERROR MESSAGE GENERATION ROUTINES 
021320 RTS PC 

;"ACTUAL CYL = CCC TRK = TT’ 


LIN3.4: DISPLY ,LINA3 


INT 'ACTUAL’ 


z 
pee 
£ 


5 13a 1 é -(SP) ihe CYLINDER 
ake pierie Br 0008 ate sotTie’ (SP) : Wet T BIT 
1 022334 JSR PC, LINDEC :TYPE IT IN DECIMAL 
oe Oo EE om 
Bis Yan Gre fs Ge oh Ie a 

021364 000207 RTS Pc 


SPBUPFER ADRs KKOO STZE = XXXX ACTUAL NNR WROS XFRD = XXX’ 


ERRORROR ORATOR REE RERRID TC RUONC NCR RRNERIR 8 
se 


021366 2760 000100 OO0016 LINEY: BIT #81706, STATUS(RO) DATA ERROR ? 
St et OSO646 Y LING BRENT ER’ 
Bho, gare oe Bera Bien tas Shen 
iwc ir e 
isi a eoe Obes Disa eli ) cone | i ‘slae’ 
hates pees heey JSR , IPE TT IN DECIMAL 
Oe Leb O4414 050677 DISPLY > ACTUAL WROS XFRD =’ 
14 16046 MOV (RO),-(SP) ’; VALUE IN ADDR REGISTER 
214% 166016 000006 SUB tit ; SUBTRACT STARTING : RESS 
Ceiws GNTH ceeae ie Meyugwoee Times IN'oecime 
021454 000207 1S: RTS PC * RETURN 
;PRINT LINE S OF ERROR MESSAGE 
; DATA = XXXXXX BAD DATA = XXXXXX SECT POS = XXX’ 
021456 104414 050732 LINES: DISPLY ,LINOS ;PRINT GOOD DATA’ 
021462 162760 O00002 o00240 SUB be, SRPBA(RO) — ;BACK THE ROORESS UP 
ge1470 017046 000240 HOV BSRPBACRO) ,~ (SP) ripe? DATA - AT THE BUFFER LOCATION 
921500 104414 O55747 DISPLY gibt ‘PRINT ’BAD DATA’ 
1 016046 MOV (RO),-(SP) ;BAD DAT BUFFER 
621510 004737 022302 JSR PC, LINOCT TYPE IT 
021514 O16046 000236 MOV SRPWC(RO),-(SP) ;WORD LENGTH ON STACK 
ies Rene ca MC pM NCTE 
021526 O16046 MOV SSSEC(RO),-(SP) ';SECTOR SIZE ON THE STACK 
ise Ace, 8 gah PEASHN, «RIVERA ERP HA ag? S17 
5310 021540 104414 OSO7ES DISPLY ,LINPS ‘PRINT SECT POS’ 
pall be iSH4 737 032334 ISR Pc .LINDEC TYPE THE POSITION 
1 1 104414 001165 DISPLY F 
3313 021554 RT pc 
5315 ;PRINT LINE SA OF THE ERROR MESSAGE 


H 
0h TAGLINE NE Un Reg” Ot Poe 


MD-11-DZRJD-B, RPOY 
DZRJO8.P11  ‘24-MA 11:04 
2315 "HEADER FROM ERROR SECTOR XXXXXX XXXXXX XXXXXX XXXXXX’ 
5318 O215S6 104414 051003 LINESA: DISPLY ,LINSS ; "HEADER CONTENTS OF ERROR SECTOR’ 
1 MOV cy -(SP); POSITION 
1 isk LINOCT : T 
1 Gel i 14 spLy ,Lt : 
1 13746 MOV é +2,-(SP) ; POSITION +2 
bisa pSiehe fos bts banoct i ehees 
Siels O1a7%e , a el a! (sp) ; POSITION +4 
See Bitle Ona: Geeks fee, Peyuinot Tipe tr 
1 104414 1 DISPLY ,LINSP : SPACE 
o3c8 Gelbes O1s7e eY5e4 MOV -CYLDER+6,-(SP) ;HEADER POSITION +6 
1 302 JSR PC LINOCT TYPE IT 
5330 16% 104414 052215 DISPLY ,LINSP : SPACES 
5331 Oel642 104414 001165 DISPLY 
S332 021646 RTS PC 
ea 3 ;PRINT LINE SB OF ERROR MESSAGE 
5335 :*RPEC] = XXXXXX  RPEC2 = XXXXXX’ 
a, s 021650 104414 051037 LINESB: DISPLY ,LINEPS ;’RPECL =’ 
5338 021654 01 000300 MOV C1(RO),-(SP)’ ;PUT REGISTER CONTENTS ON THE STACK 
eo lee ffly "range ibid 
1664 104414 1 SPLY ,Lt : 
S341 021670 104414 051050 DISPLY ‘LINEOS :* RPEC2 =’ 
1674 Bove V (RQ) , (SP) put REGISTER CONTENTS ON THE STACK 
1 ie ;TYPE IT 
1 104414 0011 SPLY F 
oss 021710 000207 RTS bc ; RETURN 
5347 :PRINT LI S 
BY PUNTonYS Bo ERREG RSE 
5350 021712 i04414 051062 LINE&: DISPLY ,LINB6 ECC CORRECTABLE 
5351 021716 104414 001165 DISPLY '‘SCRLF 
5352 Oel722 000207 RTS PC 
e333 PRINT LI OF THE E AGE 
232d Per ok REAR CORRECTLY AY OFFSET 
5357 021724 104414 OS1115 LINEGA: DISPLY ,LI PRINT "READ CORRECTLY AT OFFSET N’ 
ees 021730 O00411 BA cre? iteee THE Rest OF FH LINE 
PRINT LINE 68 OF THE ERROR MESSAGE 
336! ‘SECTOR IS ECC CORRECTABLE AT OFFSET N’ 
220d pg 1738 Agata 051062 LINEGB: RISPLY oy aNee ;PRINT "SECTOR IS ECC CORRECTABLE 
S366 ;PRINT LINE OF THE ERROR MESSAGE 
5367 : *CORRECTE NTH RETRY’ 
5369 021740 104414 OS1144 LINE6C: DISPLY ,LING6 ; CORRECTED ON NTH RETRY’ 
2370 021744 000414 BR (Ine 2 !TYPE THE REST OF THE LINE 


a a eee ee + ee 
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;PRINT LIN 60 OF THE ERROR MESSAGE 
; "UNCORRECTABLE AFTER N RETRIES’ 


104414 051173 LINEGD: DISPLY ,LINUO6 ;"UNCORRECTABLE AFTER N RETRIES’ 
1 BR LIN6.2 : FINISH 


; TYPE THE OFFSET VALUE IN MICRO-INCHES 


1g? o0ze40 021766 asia POY BNTBLCR),18  :RODRESS OF OFFSET P Nhe ssace 
oooc00 1S: WORD O OFFSET VALUE 


104414 001165 pyaPLy — 


;RETRY COUNT TYPEOUT 


z LN-2: Ohya rveg com) (ete Sau 
boars ee JSR LI ;TYPE IT IN DECIMAL 
iprgy Sols yey ump TM 


s PRINT yy ae 7 OF THE ERROR MESSAGE 
; ORDERS: XXXXX TOTAL ERRORS:XXX WRDS XFRD:XXXXXXX WRDS READ: XXXXXXX’ 


Bas SRREERS RISA RATE RARER GRAS OBER IS Nasa SS 


Gi | NT PY La.) EEN CoM 
haa i Pe: Seep. iC INT IT 
ie BEY AU aos, csey TO EE a 
051337 ee c Loe | ORIN ee Bech 
000046 heal ADDRESS OF LOW WORD ON STACK 
’ 
a ae a 
ls Badaes Rov sie, -(SP) i TE EPR ones 
a8 wre ig i an 
oul bor ies BrePLY "SC I: 
SY 100000 156776 T fr ISR ie IF od "HALT ON ERROR’ - SWITCH 15 
5 ico a TEN 
4 HALT ITCH is HALT 





1$: RTS 


6 Wr INE 7A OF 
: XXXXX re SE z ORRXKX TOTAL MISPOS ERR = XXX TOTAL SKI,OCYL ERR = XXX’ 


27 O22150 104414 051246 sere, DISPLY ,LIN70 ; ORDERS = ’ 


PEPE SS 
RRESVE VS 


a 


ab Abd | MULTI-DRIVE EXERCISER MACY11 27(1006) 26-MAY-77 11:01 PAGE 104 
= ERROR MESSAGE GENERATION ROUTINES 


SSOPERC,-(SP) ;ORDER COUNT INCREMENT 
ao ; ADO ADORESS 


ADD 

fay ars if j a SEEKS =’ 
MOV IT, -(SP) i TOTAL — 5 
re EE HR ER 


Re. 1) Ne AL 


01274 








grregeserpeszemearee? & 





IR ay T IN CIAL Se 
),-(SP) te & PRI “tr . 
JSR PC tinoee ‘TYPE IT IN DECIMAL 
DISPLY sthLF 
BI ISIS, asin i SEE IF HALT ON ERROR - SWITCH 1S SET 
OC HALT :SWITCH 1S HALT 
Eu4g Oeeee6 00020 1s: RTS PC 
3 LINE 8 OF THE ERROR MESSAGE 
DIFFERENT ERROR DURING RETRY’ 
oon I 
ae pe, ihe PRINT LINE 2 OF ERROR MESSAGE 
; QCTAL TYPEOQUT ROUTINE 
: . -( ;PUT THE NUMBER ON THE STACK 
ee Be erect 
: RETURN 
LINOCT: RY BESELashS?? EMT OMRPRL  PRPRPR AGAEON OF STAC 
MOV (SP)+ 1$ GET THE ADDRESS OF THE ASCII STRING 
ADD .,1$ ADDRESS THE LAST & ASCII DIGITS 
DISPLY TYPE IT 
iS: “WORD OO + ADDRE 
MOV (SP)+, (SP) ‘CORRECT THE STACK 
RTS PC : RETURN 
ROUTINE TO CONVERT THE INPUT NUMBER TO DECIMAL AND TYPE IT WITH 
‘LEADING ZERO SUPRESSION 
: "MOV NUM, -(SP) ;PUT THE NUMBER ON THE STACK 
: JSR PC, LINDEC 
: RETURN 
5479 022334 O16646 00002 LINDEC: MOV 2(SP),-(SP) eT UP ren FOR CONVERT 
S480 022340 004737 030030 JSR PC, $5820 TO DECI 
548 bee 004737 027430 JSR PC’ §SUPRS Tee a tu TH LEADING ZEROS SUPRESSED) 
euB MOV )+, (SP) *RES K POINTER 


- a ae ee Ce eC ee — 
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S464 





sHas g3 SHKRSRRELAASAASSARERAAERAALSSESERSRAARERESARAAAERSERARERRSSER EEE S 
Mi .SBTTL GENERAL SUPPORT SUBROUTINES 
3g 53 5 RERAAELELLE LAER LAER ALLEL SAAR ERLE ERELE ELAR RARE ERASE EEE EEE EES 
a ; DECREMENT THE SECTOR-TRACK ADDRESS 
5493 8DPB, RO ;DPB ADDRESS 
S494 : mon PC, READOR 
S495 ; RETURN 
5496 : (SP) CONTA INS THE TRACK ADDRESS 
S497 : 2(SP) CONTAINS THE SECTOR ADORESS 
eyes 022354 162706 000004 READOR: SUB #4, SP ;DECREMENT THE STACK POINTER 
5500 022360 016616 O00004 MOV 4 (SP), (SP) : 8 DOWN THE STACK 
ey fesm Geet Bes Bel wey SERURE 
022374 116066 O00e42 O00004 MOVB SERCO) CSP) CTOR On STA STACK 
ce fee [Onis mh IE SGTOR EATER, 
Bete feeui8 AtSeee 00025 00004 Bo s«ASa. csp) gs 0 Ties o 
5507 Oce416 116066 000243 O00002 MOVB ach 
5508 Geeied poooc2 DEC (SP) petro ADDRESS 
5509 BPL 2s off T hie GO NEG 
5510 Oeeae 12766 O00022 ocD0002 HOV 418. ,2(SP) * RE TO 18(10) 
1 000243 00002 15: MOVB +1(RO),2(SP) ;TRACK ADDRESS 
eis ae AApoes 33: RTS ’ ; RETURN 
Be16 ROUTINE TO CHECK FOR KW11-L OR KW11-P CLOCKS 
7 Q2e4Se 77777 O01 CKXCLK: MOV 8-1, G AR CLOCK AVAILABILITY FLAG 
2etg fesuen Bisea> 155555 pbtssp My R-T BRK GRR ater Chee er oe AVAILABTLE TY FLAG 
5519 224k 46 000004 MOV 8CK ERRVEC :SET UP VECTOR FOR CLOCK C 
225 Aa geri tte of FSR KML 
Ww T C 
S522 022504 005037 001210 CLR CLKFLG T CLOCK AVAL AB LiTy FLAG 
e5e3 10 001 CLR OCK T Kull-p CLOCK 
4 013701 Of MOV SLPVEC,R ot CTOR ADORE SS 
5525 12721 MOV SCLOCK’ (R1)+ uP Marthe VECTOR 
BS fey ten tne Coe “ot 
1 i 1S6440 MOV #-1667.. aSLKCSB ‘LOAD “COUNTER BUFFER WITH 16.67 
012777 000131 156430 HOV lal gsLKCSR ;SET CLOCK - CNT UP, 10US, CONT INT 
aS) fSseue 000004 CKCLKI1: ADD 4 sRESTORE THE STACK POINTER 
5531 012737 022614 000004 MOV SCKCLK2, JERRVEC’ ERROR VECTOR TO CHECK FOR KWLI-L 
223 16 TST asks LOOK F Ll-L 
1210 CLR CLKFLG ;SET chock F 
eat 13701 001204 SLLVEC,RI *KWI1-L VECTOR ADDRESS 
12721 023606 MOV #CLOCK’(R1)+ | $SET UP KWI1-L VECTOR 
2238 022600 012711 000300 MOV #300, (R1) *PSW - PRI 6 
022604 o1s77 000100 156370 MOV #100 gSLKs ‘SET KWL1-L INTERRUPT 
6538 Oeebl2 000414 BR CKCLK 
5539 O2cb14 062706 000004 CKCLK2: ADD #4, SP RESTORE THE STACK POINTER 


AP RSH NAR OTD UU ON 


022736 
gti 


En 
n22770 


wo 


. on eee eee 





ey 





Shuey 





: 


— 


: 


022764 


023006 


001462 


TYPE NE ;’P OR L CLOCK MUST BE ON SYSTEN’ 
TST 42 iypoer HONT TOR CONTROL ? 
- T42 HREORT Procran 
. IMP START itRY vacaIN 
KCLK3: Hoy 36, SBERRVEC RESTORE THE ERROR VECTOR 
; ROUTINE TO DISPLAY STATISTICS FOR ALL DRIVES ASSIGNED 
; JSR PC, STATPR 
} RETURN 
STATPR: MOV RO, -(SP) ; RO 
mer onefusT ANY prives ASSIGNED ? 
; : 
ees pole i ee Te HEADING 
ce CLR RA : CLEAR THe DRIVE INDEX 
a ROY BLKADRCRY), ,RO has BLOCK ADDRESS 
BITB ATABIT(RY), asnist $ THIS DRIVE ASSIGNED ? 
aA Be, SDETAL eh PERFORMANCE Y 
2S ite RY ws i ING ,THE INDEX 
_ iB { T 
aS: MOV + de> eels ps 
epee Reign 
j ROUTINE TO TYPE STATISTICS FOR AN INDIVIDUAL DRIVE 
i 
;DPB ADDRESS 
Peres Best 
} TURN 
YPEST: MOV RO, -(SP) ;SAVE RO 
MOV RY, -(SP) SAVE RY 
ISR PC; SHDTYP TYPE THE HEADING 
CR RY nt fot RY FOR DRIVE NUMBER 
ne PC, SOETAL : te ete ATISTICS 
MOV (SP)+, RY “RESTORE RY 
MOV (SP)+/RO j RESTORE RO 
RTS PC : RETURN 
i TYPE THE HEADER FOR THE DRIVE PERFORMANCE SUMMARY TYPEOUT 
;  —s«SR PC, SHDTYP 
: RETURN 
SHOTYP: JSR PC, STIME TYPE THE TIME OF DAY 
JSR RS; TYPRIY ‘TYPE AT PRIORITY 4 


MOS 


oS 

Sj E § SAR gd id ha 
. gice® § SF BF yf y 
ee ee er 
la Eee 
He ees 
7 
Sek kee oe 
: F ye abe we gH woPAS bMS bole fea Ge b 
a € 8 : 38 sigaz Pho Ho ISR oz wes Is IS Iz wee 
E dee ef nts seep Esatannatsop'tgans’t eens Sterenttsenn tts 


: : Sanaa ane 


: gaa eu faa aa | 
— ‘ : 4 Od tt et | 

Sisties Seen ieee a cha sceSceRaRENSGRISS | 
 escanan fect a 
et tet nt ee ' 

FARRAR ed Ooo AAA AAA RRR RAR RAR A | 
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24-MAY-77 11:04 
Bo4a89 
OS2443 
000207 
010246 
010002 
OTbHHe 





MD-11-DZRJD-8 
DZRJOB.P11 


ee ee ret ce 







SERBS RORKED, CRIS tool soa eob ORR Cn eS Baw ORne 


2 


SESS 


004737 
004S37 


Ne 


oos 
001006 


030030 
027340 
0S2216 


G abRORee 3e © 3s 


001264 


023417 


023417 


JSR ; : 
ISR RS, REPLZ : TYPEOUT 
; WORD 4 wath ‘TYPE 4 DIGITS 
HOY the}s,20sP) : I itis THE STACK 
JSR RS, REPLZ °T OUT Sekt 
iVPE,  LINsPo ieee ° 
HOV tRe)+, -(SP) ‘PUT % es THE STACK 
ie | eee 
iver 4 ; 4 if neo 
MOV ihc ~(SP)’; OTHER 
Cee 

tsP) oe st oF oa 
SU6 LeSOCRD) (SP) ; SUE i Gh {STOTAL 
J5R Re" REPL? 
; HORD 4 <a Wee it j IcrTs 
Hoy 136, Re RESTORE R2 


;ROUTINE TO INCREMENT SSOFT 
:NOTE: S$SOFT WILL NOT BE INCREMENTED BEYOND 9999 (10) 


INCSOF: TST BADSEC ;SEE IF BAD TRK/SEC INDICATOR SET 
BNE 1§ sBR F IT’ S SET, D SET Don’t INCREMENT COUNT 
CMP $SOFT(RO) , #9999. MAXIMUM ? 
RNC, §SOFT(RO) jah Te INCREMENT $SOFT 

1S: RTS 5 RETURN ” 


;ROUTINE TO INCREMENT SHARD 
;NOTE: SHARD WILL NO’ BE INCREMENTED BEYOND 9999 (10) 


: TST egosec E JF BAD TRK/SEC. INDICATOR SET 
INCHRD: Tr . ier Fis "S SET, ONT INCREMENT COUNT 
CHP SHaRD(RO), 49999. ‘ailtr ALREADY AT MAXIMUM ? 

sit bferocno) cf i SHARD 
1s: ATS RETURN 


ROUTINE TO INCREMENT $SKI 
‘NOTE: $SKI WILL NOT BE INCREMENTED BEYOND 9999 (10) 


a ee eae 


BETES ESI co 


MD-11 1 era EXERC 27 <a 11:01 PAGE 109 
OzRI0e. eee & GENERAL SUPPORT SUBROUTI Pe 
001264 INCSKI: ist | ee 
10 000064 023417 $3c1cr0), 09999 


— a ee eee 


FRO SMT ON Se sRATSAT SINHA TORMENT ASS 





000064 18: i SBescro> 


SNS 
NOUS WT 


eae ate 001264 INCMIS: ist 18 on 
eae ers 000066 023417 es theta htt 
Oe34S6 005260 000066 INC SMISPO(RO) 
Gesbe 000207 18: RTS PC 


;ROUTINE TO TYPE THE TIME 


pose 
i GS 
ui 





023510 001210 STIME: TST CLKFLG 
023514 ae. 1 
1165 
266 HOV HOUR. -(SP) 
JSR Pu Saee 
WORD 2 
I 7 TYPE COLON 
nov AINUTE, -(SP) 
JSR pine? 
rea ie mr St 
1 MOV -(SP) 
O04 030030 JSR PC, $SB2D 
DOs. 37 027340 JSR RS, REPLZ 
000207 1S: RTS PC 
;CLOCK HANDLER ROUTINE 
023606 005337 001274 CLOCK: DEC SIXTEE 


ee eee 


;ROUTINE TO INCREMENT SMISPO 
;NOTE: SMISPO WILL NOT BE INCREMENTED BEYOND 9999 (10) 


af 


ROUTINE TO INCREMENT STOTAL 
"NOTE: STOTAL WILL NOT BE INCREMENTED BEYOND 9999 (10) 


sr sit I 
31 NT SSKI 
; RETURN 


; INCREMENT SMISPO 


001264 INCTOT: TST BADSEC F C IND CATOR S 
BNE 1§ ioe if re & eH reat ENT count 
023417 CMP STCTAL (RO), #9999. iTS SToTAL OTAL PePLREPDY AT at ROR 
a F :BR T IS 
NC STOTAL(RO) INCREMENT STOTAL 
18: RTS PC : 


OCK ON THE SYSTEM ” 


PUT *HOURS’ ON THE STACK 
DECIMAL 


DIGITS 
CONDS ON THE STACK 


ewer ee ee ee ee ee ee ee we ee ee ee we 
<4 


; INCREMENT THE 1/60 SECOND COUNTER 


rr ee ee a ee ee eee 


SS 


Seo Lic RP ROR PRRERET ECE CGT er BB RREBRARR Erect. 





Boe 


Shee 


anes 
ae 





— 
Tw 
K 





001274 
001272 


001270 


001266 


001412 
001214 


177776 


1$: 


er RPO4/S/& MULTI-DRIVE EXERCISER MACY11 27(1006) 
"24-MAY-77 11:04 GENERAL SUPPORT SUBROUTI 


NTRVL, INTRVL#2 ; 


8-1, STATIN 
INTRVL+2 


a” 


26-MAY-77 11:01 PAGE 110 
NES 


INTERVAL FINISHED ” 


IF NOT 
ey PERFORMANCE SUMMARY DISPLAY FLAG 
sELRAR THE PERFORMANCE INTERVAL COUNTER 


5° CF § NORMALLY SET BY THE TTY SERVICE 


; THe N INTERRUPT MODE 


; SYSTEM RETURN 

: RETURN KEYBOARD SERVICED 

; ANY TIONS ACTIVE ? 

:BR IF ORE 

i ooP ' 
Paice tie pier THROUGH THE LOOP 
9 F NOT. ENOUGH 


oe ANY COMPLETED DRIVES 
: GISTERS 

j SET meth 04 

sCLER TH . *CONTROL C’ FLAG 

GU ty Peace IN THE TTY BUFFER 


igo STRING 
OTM SORE Che 

INT TO. COND CHARACTER 

Pot an oA 

:BR IF IT IS 

‘DRIVE NUMBER GREATER THAN AN ASCII 7 


3 


: 


he 
aan 


ry 


x axe 
-_ 


# 


We 


ae 


R 
— 
uw 


cong 
SR 


g 


: 


5 ggSSRERRERLEPL EER IRRIE E210 TEE EE RERRERIERRERS 8 


CORE | URIAR EO sarerenaclaan so asoet 


177777 


177777 


177777 


177777 
1S47S2 


177777 


154704 


026476 
001462 


TI-DRIVE EXERCISER MACY11 27(1006) 26-MAY-77 11:01 PAGE 111 
: GENERAL SUPPORT SUBROUTINES 


;BR IF IT 
ee (fs),°0 Biv N LESS THAN AN ASCII 0 ? 
BICB atC7,( ) : ONLY LOWER 3 BITS IF CHAR NOT ’A’ 
= ef he Be IF NOT EO 
3h , NEWASN ; ASSIGN DRIVE FOR TEST 
a gee fmt) PP hbo 
ISR PC, DEASGN i DEASSIGN DRIVE 
~ Gree as,-10R8) EG If not EQ 
J PC, SCMND i TYPE STATISTICS 
4g: CMPB 8’ WW, -1 (RS) -EQ To Vs 
en — ae F SET Oo "W COMMAND 
ae , DATAPK i PRite A DATA PACK 
BR sEXIT 
cS: cHPB #’R,-1(RS) iE To Re . 
ISR , REDAPK iREA A DATA PACK 
S$ Recheg MO sTYER ppv ID fener, 
: ADD 82, (SP) j INCREMENT THE RETURN ADDRESS 
bis sie asTKS TTY TER ra ER 
BR Bet T08 BET PRIORTTY BACK 10 SERO 
RTS PC RETURN 
ROUTINE TO PROCESS THE ASSIGN REQUEST (’T’, °R’, OR ’W’ COMMANDS) 
ASSIGN: cHPB #70, (RS) i ASSIGN ALL ppRives? 
ASGNI: MOVB (RS) RY ;PUT DRIVE @ IN RY 
YTS AOS SS eT Ute ee 
BITB AIABITCRY) ,ASNLST et ALREAD Y ASSIGNED ? 
at RY {RVING TO-RSSIGN DRIVE 0 ? 
BNE 1S ;BR IF NOT 
I aia Mt na yar 
BE asus) he satee 
2s: hp SAE ans HERE IF ORIVE NOT AVAIL 
ASGN2: CHP 11,41 ; LOADED FROM AN RPO4/S/6 ? 
MOV #1,R4 START WITH DRIVE 1 
HOV 47. R9 ;SETUP FOR ONLY 7 DRIVES 


rr ee wes eee 


wi 
8 
r= 


Peer 


DOS 


wreo 


: 
3 
a 
= 


sgseuesecanrenmerenpaces 3° 











FB cxn 
024364 024406 
Gey fai ONG 
Oos137 024370 
fa ae 
14% bros 
BS | 
[oe oz 
eg ivy 
BSEy 
100437 
Gerne Glee! oir 001506 
Gere Gna teeiey 
Ge4474 004737 Oeb0le 
Bien) lereo DONNA] oon070 
Ge4Si2 001403 
pod Ai3760 001216 oo0026 
024526 porans 
024534 16 000004 
024S40 
feos 12737 052374 026476 
tess Oils 
BEE (BG cour conn 
024572 012737 OS2340 026476 
Oe4602 012737 OS2226 026476 
024610 000207 
Oe%612 005037 o0l2l6b 
024616 000137 
024624 1 1S 00010i 
024630 001434 , 


TI-ORIVE EXERCISER 
: GENERAL 


MACYL1 27(1006) 26-MAY-77 11:01 PAGE 112 
SUPPORT SUBROUTINES 
ee ee 
38: ie 43 UF Not on cvetene 
4s: HOY 838, -(SP) Rn ON THE STACK 
ASGN3 pire ATABIT(RY) ,ASNLST sORIVE : IGNED ? 
1S: Ist art : DATA UNDER WAY ? 
B ;BR IF I 
eRe Pc’ ve DRIVE 
TSTB © ORVSTACRY) 
BEQ ASGN7 ; 4 ea OR NONEXISTENT 
Ba. ra . 
MOV BLKADR (RY) quite 5 
nH PC , tte ee; por 
JSR ; ier S BRORESS-L PIMTTe 
pe? Get Te DRIVE" 
JSR ° TID ; 
ISR PC, GETADR cum eT 
MOV 81°SPASSC(RO) ; 
Bo OS a IE ROT 
MOVB = PACK, SPACK(RO) ier ITE TA BACK INDICATOR 
es: RoR RY REST RIVE 8 : 
_— BEQ ASGNS a wid a sen mu 
BR = Agcng ANTE Onive NUMBER 
ASGNS: 800 #4, (SP) j INCRENENT RETURN 
me ee: jue” ae Sem 
cca: Tale Dvr SRY, eae? 
BPL 25 *BR IF DRIVE OFFLINE 
HOV SNOTRP, ASNMSG HROOKESS OF *NOT RPO4/S/6’ MSG 
1S: HOV SNOTPRS , ASNMSG fore SS OF *NOT PRESENT’ MSG 
2s: MOV BUNTOFF,ASNMSG ;ADORESS OF ’DRIVE OFFLINE’ MESSAGE 
3S: RTS ERROR RETURN 
;°T’ COMMAND (ROUTINE TO ASSIGN A DRIVE) 
NEWASN: CLR PACK CLEAR ’W’ COMMAND INDICATOR 
IMP ASSIGN GO TO THE ASSIGN ROUTINE 
;’D’ COMMAND (ROUTINE TO DEASSIGN A DRIVE) 
DEASGN: CLR RY 
CMPB ss 8A, (RS) ;DEASSIGN ALL DRIVES ? 
BEQ S$ ‘BR IF YES 


ee ne eee ee 


re eens nee cee ee em eee ae 0 ne + 


» erenees weet I-DRIVE aia? Sl pet AEN oe pewter 11:01 PAGE 113 


: 





5932 O2e%32 012703 000001 MOV #81700, R3 sSET 3 Wee 
ogy RSE y 033360 O014%62 1S: Beye seas, asnist TORE 
ty 033360 001462 Bree ABIT(RY) ons De I HE ASSIGNED LIST 
as Bes ek Pa wenihites 
238 4 001740 001464 pl BLKAOR(RY) DUNITIR4) ;PUT ADORESS IN DEASSIGN LIST 
5940 2s: DEC 3 sANY MORE DRIVES ? 
So 41 BEQ 4§ ‘BR IF NOT 
se Seen eR 
eaua 122715 000101 3$ CMPB 3 s«8#” A, (RS) sens Toa ALL DRIVES ? 
beusoe Sierae fy fF 
1 052247 026476 SUNTNOT, ASNMSG OF *NOT ASSIGNED’ MESSAGE 
S37 Oc4714 004737 JSR PC, ASNERR irpon. 8 IT 
eaug anes 12703 000010 dg: Ao 8 R3 :SET UNIT COUNT TO 8 
5900 024726 000744 : BR is’ : 
5952 ;°S’ COMMAND (ROUTINE TO TYPE DRIVE PERFORMANCE SUMMARY) 
eaeu 024730 oos004 SCMND: CLR RY 
5955 Oe4732 122715 000101 CMPB «8A, (RS) sALL 1eralestics ? 
5956 024735 001421 BEQ 3g 
5958 ara Lae? 033360 001462 TB arpety CRY) susie! pee DR RIE ASSIGNED 
o6 te7e0 ite Bed is BR cm ADOR INTO WORD INDEX 
5961 Soave nates 001740 MOV BLKADR(R4Y) , RO se Oe BLOCK 
592 024760 004737 022736 JSR PC, TYPEST i TYPE SRIve STATISTICS 
eoea SSuvce Siete 7? O26476 1S Sav BONTNOT ASNMSG NOT ASSIGNED’ MSG 
5965 ae eee 456 F JSR PC, ASNERR ae Pe ROR ME 
ce) tere GES om as: ay 
5968 136437 001462 BITB ATABTTCRY), st ee i DRIVE ASSIGNED 
5969 025014 001004 BNE 4§ BR’ IF 
at ee me deseren, Bese 
5972 001371 BNE 3$ : T CK 
5973 000464 BR 93 + NONE Aes he RETURN 
5974 022654 4g: JSR PC, STATPR TYPE ALL statistics 
5975 001220 TSTB ~—— ODATE :SEE IF "DATE’ ENTERED 
1404 BEQ 11 *BR IF NOT 
104401 053251 TYPE , DATEIS j DATE: a eae 
1830) rahe 118: TST RID : ‘ane ae ENTERED 
pratt ee | ED i SpeRATOR 1.D.:.° 
104401 paises TYPE  SPERIO : THE Tha i:D. 
104401 053304 123: TYPE  ‘HEDLIN HEADER LINE 
or2797 042154 025146 MOV RORIVED+SORVID, oi -ORIVE I.D. FIELD ADDRESS 
005004 CLR sORIVE ADORESS 


10 MO : COUN 
033360 oOl462 SS: BITB #882 ASNLST ;SEE IF DRIVE ASSIGNED 


-O 
ery 
85 

8 


—— Ee eee 


——— -— - . - a mn 


° 


SEF RV RS EVEr Es 


| el 


Bar aacR 


SEES 
WU © 


EEEEEE 


— eee 
won 
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“ 
ea 43 
4g 


Beetle BiONe Rov RS, (SP) Save Ra FOR TYPEOUT 
ml , eT TYPES COCTAL ASCII 
Be ie aa Wee +} Wee Someries) 
pets 441 052213 ivPey | LINNSP 4 ars 
fe 150 ige777 12 1o18 aES *SEE IF DRIVE I.D. ENTERED 
Geol 91003 BNE 10$ ;BR OIF DRIVE 1.0. PRESENT 
25142 000404 san a BR os iG INUE 
eat §Bco08 6$: MORO 0 i ADORE Le oF RIVE 1:0. FIELD HERE 
025150 104401 001165 TYPE SCRLF :CR-LF 
le ive BS RCP eT eee CONTE 
0251 000304 025146 ADO SSRPEC2+2,65 ; NCREMENT THE MESSAGE FIELD ADDRESS 
G2S 166 INC RY j INCREMENT DRIVE ADDRESS | 
pest 04401 001165 QS: Foe RLF i eRNTP 
Nes 1 n0020 9S: RTS 
;’W’ COMMAND (ROUTINE TO WRITE A DATA PACK) 
GEESE LETS UEKERE omUeve orvorm: wey RUE ART DF ce PENNER 
;?R’ COMMAND (ROUTINE TO READ A DATA PACK) 
Bees25 GO0137 Gedeag COLe16 REDAPK: Ie OASSTON Pee GN THE REQUESTED DRIVE 
; ROUTINE TO CLEAR THE DPB FOR THE ASSIGNED DRIVE 
t MOVs DPB, RO ;DPB ADDRESS 
; JSR PC, CLROPB 
: RETURN 
CLROPB: 
“x ik 
oooo02 Re Rd ieet FIRST LON TO BE CLEARED 
000005 V #5; R3 ;NUMBER OF L TO BE CLEARED 
1S CLR Rade i CLEAR THE LOCATION 


OE TE NOT FINISHED 
‘Rove THe abpReee Past THE REG’ ADDR 


ses ~~ & ee DD 


See FSR ARERR US ANTES 
Shine Somn ees 


Beso 





oo0002 RY : 
000070 V SNEXT-SREG,R3 ;NUMBER OF LOCNS TO BE CLE 
o00002 =“ Ff ae OOP EMENT THE LOCN COUNTER 

’ iBf fF AD iT FINISHED 
000014 #12. .R4 : PAST SS LIMITS 
000162 MOV #SRPEC2-MINSEC,R3 ;NUMBER OF LOCNS TO BE CLEARED 


BOS }Aa02RYO-8, .BPOH/S/m WL TI-DRIVE EXERCIGER. ACY 27 (1008) | aeen 11:01 PAGE 115 















6044 o0so24 aaa 3: a (R4)+ CLEAR A LOCATION 
be é ie 001434 000024 MOVB Be, (RO) toe 
Bows feesey Tibieb Boi 7e0 apong2 Nove eae i 
chet Gees Lies boas tio AaB Bearictaoy ER Book Y8 A TABLE INDEX 
ses tess ite Gano = BY Bei : fee uate caatoren 
6055 Oc 1 000400 00022 MOV i, NETIAL VALUE OF SECTOR SIZE 
co? NO OM Bea, 48’ {BR IF_NOT 
b058 Sess 062760 000004 000022 oe ADD #4, SSSEC(RO) 'ADD HEADER SIZE TO SECTOR SIZE 
a ees: YAS STR I 

14 012603 (SP)+)R3 ::POP STACK INTO R3 
6063 025416 000207 RTS PC : RETURN 
6055 ROUTINE TO GET ADDRESS LIMITS FROM THE OPERATOR 
ie were nem oe) 
is fis Bue ome nS BY yoo me form 
6071 025432 104401 053145 TYPE ENTLMT i : a= Sm 
eors GBee Grosse nO ORY, -(SP) CONVERT TEER Noe To Ont 
ie feats 1g 1 Br iN 
000 ‘BYtE tiga : SUPPRESS LEADING ZEROS 
; : Jos ’ . ’ 
zs: Ween ate nee BYTE BS Bhi HY or es 





Fi 


BS 





8 
~~ 
o 
mo 
tw 
BB By 
nn 
w 


BNE 
Bo0002 33264 B18 SE Bevieas | Reig Be plat. 
0S2436 025516 i Me les 128 a i Wien FOLLOWS 


ee eae ee 


001350 MOV TO 814 
rerahid 000122 4s: zt ® MeeSeetiRoy ig Borg Hn F put TIME STARTED 
350 MOV YLIMT naxcve :LOAD MAXIMUM CYLINDER 
900 10 CLR i mt Aa jCLEAR R MINIM CYLINDER 
1 000112 MOV KL REXTRK RO} MUM 
000 outhern INIMUM TRACK 
SOUT, WD corral “LOAD AAT Runt SECTOR 


e 
a 
e 
2 


as 


= 
4 
g 
8 
3 
8 
z 


EAA PRA HA 6h LEN BT 0k Pe Le 
ss: cur FINSEC(ROD Paty WINTMAE SECTOR 
roy Hn "Ait ai ae] LIOR 


PARENT. 

H i a ecrOn VALLE? 
ce) ) _?IN FCINOER VALUE 
R3 RESTORE 





oor 
oe fe Be 
BSS 
05 
— 
ore 
 & 
frO 
o 
is) 
233 
CEE 
++ 
ne oaf 
338 


6108 
61 
bil 
ite 025576 012603 MOV (2p) 
B113 025700 ein RTS PC 
B11 ROUTINE TO GET THE DRIVE I.D. men THE OPERATOR 
6117 OeS702 O10S46 GETID: MOV RS, -(SP) : RS 
b118 025704 005737 oo0042 TST 42 : MONITOR CONTROL ? 
Bion Beets BOA? on12b2 is ss &F BR EAR Se *CONTROL C’ FLAG 
blel serie 104401 053120 . ,ENT Bev 10 ’ 
ble2 Oe5722 OOSO46 CLR “~(SP) 
Bisa Geers {h4048 cma), "He Wee MERE, ON we Hae 
6125 025730 002 -BYTE 2 Tee 2 DIGITS 
1 BYTE O : SS LEADING ZEROS 
1 1 1 001165 TYPE , SCRLF 
6159 025740 a1 as ~ (SP)+,RS : Pe ENTRY 
pin fears Bey? onizse fer GLa Seon (a ceNTERED 
6132 025750 e527 oo0056 CMPB ss (RS), 8”. *PERIOD ENTERED ? 
etsy Ti 2ee0 000224 iy “ + pcro) rsto fs D 
pize fSeres jiseph pooees (Reps’ spRVIDe (ROD TOTORE THE 1D 
B13 025765 112560 000226 Ho (e)¢ son ste ito Te | p 
—_—— | . 
pis, Bsese tisepn poise’ Hove (R5)+; (RO) 357 1-8 
6139 026002 112560 000231 = MOVB (RS) +, SORVID#S (RO) jSTORE_ THE 1.0 
er ate , ts ct RE PURN 
p13 ROUTINE TO GET THE ADDRESSES OF ANY BAD SECTORS (UP TO A MAX OF 16) 
614S Oe601e2 GETADR: 
b1Me Deb01¢ 010146 HOV RL, ~(SP) ey Rl ON STACK 
iy ne ee 
V RY) -(SP) He Re 
6150 Oeb0e2 37 o00042 TST 42. R MONITOR CONTROL ? 
pied FSpRER 001262 14S: BNE BPS ac "CONTROL C’ FLAG 
b153 026034 104401 053206 TYPE ,ENTAOR ENTER SECTOR ADDRESSES 
pled naa 111016 MOVB (RO), (SP) Lore ae BRIVE NUMBER ON THE STACK 


P a a eee 
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6156 104403 TYPOS ;TYPE THE DRIVE NUMBER 
HA EE ol se BE fn, iySiUl as 
fie) feted ere ce es ate A eta eres yh sets Sitiet 
6163 Oe6066 012724 177777 1s mov = #1, (R4)+ ;SET LOCATION TO 1°S 
6164 C ; CREreMT PINTSee bx 
elee ride “tee ete is i NOT Rae bry TABLE 
bie Oe 4 aie 000100 et ts. 1 POI TO BEGINNING ‘ae 
He ae deed = ie on | 
He Heid Bey ome A o's Lay 
a ee be 2 Beam Sa 
te » VA. 

i ae IPE 320 2 {PERIOD OMY ENTERSD 
1 1 4 
Hoa ee ae ee 
st tee ies 1 ’ BR 13$ 
cies GeeieD gama wee ee he Hauge i THIS ADDRESS, "CR’ ENTERED 
Bide feeies Brocia ss; fov AB CRY) ROER bonese 
te ia bee BS Ste Be 
He 026176 Oeb320 158 fasts ONLY ENTERED. onres 
bige eben Geeale A WITH @ CARRIAGE RETURN 

: ) wo os 
cS Geeei6 T6244 000003 6S MOVE R2,3(RY) co ha pon 
Big? Geese Tiee4 ocoooaa 73: HOVE AB) 
6138 Oebeee conve! eet: a BR iF INS WITH THIS ADDRESS, *CR’ ENTERED 
e201 026230 bee 001344 HOV et ee ee INPUT 
bets 026320 158 aE ices Gray enrenen 
oe tebe es 16s ie pH @ sr RETURN 

(a4 CTY HTH 4 aie 
coos 110264 ooonce 95: HOVE Re, 2(R4) ae _—— second 
1 11 oococ2 10$:  MOVB 2,2(R4) ‘SECTOR ADDRES 
6211 005303 118: DEC R3 !MORE ENTRIES ? 


ES — 


a — 3 ee Ci; 


elkPHP* PRS NAME COMER, MILA LUM ge OL PE 
esis pPAda Ros ais icaeent THE TABLE POINTER 
< fy Ficey, Hee eset tae pe 


— 
<£ 








Bir ee bles 
ig o1 TYPE sQROENT ‘MAL, ENTRY 
Eel ieee flee my ASI Re STE IN 
b222 012602 MOV (SP)+'R2 POP STACK INTO Re 
bea Deb 32 O1ee0 Hoy (SP)+, RI fs ee INTO RI 
beeb ; PARAME TER ENTRY ROUTINE 
ae ee ee 
ean 010346 ay PARENT: HOY R3,-(SP) ;SAVE THE PARAMETER TABLE A ADDRESS 
Bee bee SS hw P 
6235 O4401 T : THE 
e539 1 ” toro fa3)+,R2 ates ne ba 
6238 012305 MOV (R3)+;RS ADDRESS OF 
P539 Ohade Wpps ‘hoe (SP) : PERE TER PARAMETER 
6241 1401 053636 TYPE , SLASH sa, 
e5u5 bizeo} MOV (SP)+,R1 iTRPUT BSc ING ADDRESS 
be44 3 005737 001262 TST cELAG j ACONTROL C’ ENTERED ? 
eoue 027672 ao Re, CK. DIG trek te SicIT(s) 
ee 026340 As icomi RETURN ONLY ENTERED 
rate Lt 
Bet eile fer d RENE yg sere am 
6252 026436 7§ ; TERM NATED WITH A ”.” os leeds 
Sagi. © & bs a filha 
fe itera} 000006 : iy JR3 iy T THE TABLE POINTER 
1 7S: MOV (RS) 
e5e0 ese rae 001262 gS: a, CELAG. Bg THE He "CONTROL tC "LA al 
ees BAs$93 ie, ; TRY 
ies 0057 9s: TST (SP)+ connect THE STACK POINTER 
bbb 


reat ASSIGN/DEASSIGN ERROR MESSAGE 


g 


LOS 
Bidka I ERAS NOM OFM SUCRE BE 77 OL Pe 8 





6268 ; MOV RSNMSG ;ERROR MESSAGE ADDRESS 
5 104401 053047 ai ni sie ; QUEST] 
Be ee Fite, EE 
| Bet ee Fl i Hy ACD, Sa 
Bo0 : d ieee 
bees 26504 boozo? RTS ae” 
B284 ;DEASSIGN DRIVE IF A FATAL ERROR OCCURS 
628S ; CALL 
6286 : ISR PC, DROP 
bea? : RETURN 
| B58 Pipes OROP: ove Cho) RY tGbUE RIVE HUMES TO Rae 
6291 001462 BICB aTpRtTcR4), ASNLSt  ;REMOVE DRIVE FROM ASSIGNED 1ST 
me: BS ounrrcmn  iBOREOREGRESNPRRGE ERE © TABLE Toes 
bed TYPE ,SCRLF 
6295 TYPE  /SCRLF 
Bs Fee SERRA Tig gpPPInG onuve 
6298 ASR RY DRIVE NUMBER 
6299 MOV RY, -(SP) if RH F T 
en TYPOS 
pan ‘Bue 5 i DepebQTL Ge or ZEROS 
T SCRLF 
6306 RTS PC 
6307 ROUTINE TO DEASSIGN DRIVE IF ERRORS BECOMES EXCESSIVE 
es 152346 ABNRML: BIT 8SWO4, aSWR ;SEE IF SITCH 4 SET 
6311 000056 CMP MAXER, STOTAL(RO)’ ;CHECK TOTAL ERROR VALUE 
312 BHIS 1S :BR IF DONOT EXCEED MAX 
631 IMP bRoP : DEASSING DRIVE 
314 1S: RTS PC * RETURN 
e313 ROUTINE TO CHECK FOR END OF PASS AND END OF TEST 
6318 EOP: TST ENDET ie pass ness BY SEEKS OR WORDS ” 
bias 001374 ee §ReAD+2(RO), ENODC F PRECR nsw REA AD COUNT 
| bie BL EPL iBR tf tS GREATER THA ¢ Cnt! 
001372 CMP (RO),ENDCON’ ;CHECK LSW AGAINST LIMIT 
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6324 026640 103012 F EQUAL OR GREATER 
bes em Ha , He WBlrreewo ooitlll joo ru o sex com 
bel fe By lrrcnor eros LAR PALAPe Ea ng 
£30 BLO. EOP et IF LSW LESS THAN LIMIT 

TYPE aphopes FOR THE Te Sx 

MOV (RO), ~«$P)' 
: mE (ROD, aa wT ce eco ecs RIMAL AND TYPE IT 
ca fy fcc me F AT END OF TEST 
ps0 TYPE ,ENDTST et Be OF TEST’ 
eke MOV UNIT, -(SP) F iF OUT 

TYPOS :?G0 TYPE--OCTAL 
ire ae i Upbees OR 
£349 iWre | OScRLE H, te 
£348 
et Fee Bou Pparyy. ne on 
ce MOV IT, -(SP) F UNIT FOR TYPEOUT 
6353 OIE +160 oreit cs) 
ss {He a ge 
6356 JSR pC, TY st HY: uf DRIVE’S STATISTICS 
= oe 
pxe0 abo BSOPERC, R' ae BRAT Ine GDR OF SECTIONS TO CLEAR 

. »R3 OF LOCNS To BE CLEARED 
Pe gages gre Ot SED 
6364 : 
6365 Oc BRE Bs BR IF HORE TO ital . 
fas p my fey HATO 
6368 er SPassC(RO) i NREENT THE PASS COUNT 
py CLR Mg CLEAR RY FOR DRIVE NUMBER 
£394 Bice great aw asst © BeLe Te DRIVE FROM ASSIGNED L151 
ea it HOV RO, DUNIT(R4) iPUT # ADDRES IN NTO DROP LIST . 
6378 ; ROUTINE TO GET THE REMAINDER OF THE RANDOM NUMBER 
’ 
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MACY11 27(1006) NO 11:01 PAGE lel 
SUPPORT SUBROUTINES 


EET 


;DIVISOR INTO RS 
;REMAINDER IS IN RS 
PRON MNGER ON THE STACK FOR DIVIDE 


cree 


thea. POINTER 
iF OR 


Fe tegy 


TST (SP)+ 
RTS PC 


jLINK ROUTINE TO THE DIVISION UTILITY SUBROUTINE 


LINKDV: 


- acne ai iia 
% 
_ 
o 


M.DP4O: 


mm = ne re 


WEARS Be car OMI meu 


nO 26(SP),RS iBIVIsOR she 
, y 
my aise ne itera BVI 
LR RO ' CLEAR OTHER DIVIDEND REGISTERS 
JSR PC,M.DPID {60 TO THE DIVIDE ROUTINE 
HOV. Rar Sec eP) tSOOTTERT ONT He SHREK 
Rov (SP)+, (SP) Rove ORE RN UE” UP THE STACK 
Des: Madall 
Re RiaroTienT wee BF TER ‘ohyision SION 
10 
: MOV #40, a Brot DIVISION CYCLES 
NOV ea naan ORDE gone TO THE STACK 
NEG 2(SP) “FORM NEGATIVE 
G asP VERSION OF THE DIVISOR 
Abc hon PERFORM THE INITIAL SUBTRACTION 
Rea OPH TURNGNFERR AAP ERP 
TS asP ;TEST. “CARRY” INDICATOR 
BEQ M.DP41 IF NO “CARRY” THEN ADD ELSE SUBTRACT 


CLR asP ; CLEAR UP FOR NEXT TIME 


rr nn a ene es ee — 


B10 


— ————— ee eee ee tee ee ee + eee + 





: 
: : : Big £ 
- 48 %, w & ac 
: Eye 2 ote > 
: ee eer 
ES . 7 e Be S35 6 
Treva: 7 HE = eee © 
oa ako ffl 28. Feat oak 
 S Sibbeeee = 8 Ae Seaeebeatiatssat eee 
SD Ok se es i 
& 3 ° ¢ oe « a ee 
ra 7 et . go shite 5 gee gb 
a. ata a. = #2 = = 7. Se ee ~> on p+ 4 
ef cen weteRh et olver of e€ 2 Be Seen Loni neSts hy 
= rd 
PUERTO IMMDIEAEDERN © ae2 spaskete, buctat Sane 
é : : : a3. Cg a ss 
7} 
Fa 


BSE SS De ROE 
rte Wt at 8 


eee etsahassstencaseeteecceceececeeteeresteceecteteetet] 


mm me a ee oe - CO 
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; TYPE NUMERICAL ASCIZ STRING SUPRESS LEADING ZEROS 


< 
2 


SNUMADR,-(SP)  ;FIRST ADDRESS OF ASCIZ STRING 
PO SSUPAS 


6496 
6497 PC 
fags 10046 SSUPRS: MOV RO, -(SP) :SAVE RO 
6500 erie steer 000004 - HOV 4(SP),RO sPICKUP THE POINTER 
cate itera ; Beg 25 i " 
000060 CrP #0, (RODs : THIS AN ASCII ’0’ ? 

cone 2s: bee aD Rae ry) 
6508 10037 027460 MOV RO, 3$ : FOR TYPING 

; 104414 DISPLY :G0 PRINT 
6508 000000 38 .WORD «OO fetes GOES HERE 

012600 MOV (SP)+,RO : 

6510 Oe74e4 012616 MOV (SP)+’ (SP) SRESTORE THE STACK 
b511 027466 000207 RTS PC : RETURN 
pets ;ROUTINE TO TYPE AT PRIORITY 4 
6515 027470 01374 177776 TYPRI4: MOV aePs,-(SP) ; SAVE PRESENT STATUS 
6516 tate Ole737 177776 MOV aePs : CHANGE JORITY TO 4 
651 1 le MOV (RS)4, 15 ; MESSAGE 
6518 027506 004737 031074 ISR PC, STYPE : TYPE THE MESSAGE 
6519 Oe7Si2 O00000 1S .WORD OO ‘MESSAGE ADORESS GOES HERE 
b5c0 027514 0020S RTS RS : RETURN 
6522 ;ROUTINE TO TYPE ERRORS 
Pesd s¢ a DISPLY ;MUST DEFINED IN TRAP’ TABLE 
6525 Tue ppm eg 
6527 ’ 
6528 027516 032777 O20000 151414 SDSPLY: BIT 881713, aSWR ; INHIBIT ERROR TYPEOUT ? 
6529 027524 001004 BNE 1$ BR - Soy ‘a 
bese ee rede Aaia7 JMP Aes i Pee RoR ME 
6532 062716 1S ADD #2, (SP) INCREMENT THE RETURN 
6533 Oe7542 000002 RTI : RETURN 
pose ; THIS ROUTINE IS USED TO CHECK IF AN 
6538 sASCII CHARACTER IS A DIGIT BETWEEN O AND 7 
ise re ck a ee 
6540 : RETURN1 ° iCleeacTER 13 NOT BETWEEN 0-7 
6541 : RETURNe *C T IN Re AS A 
bee : :OCTAL DIGIT 
aed be7suH 1 1127 000060 CK.OCT: CHP (RI), #°0 iLESS 1 THAN ZERO? 
654 027552 121127 000067 CMPB ss (R11), #°7 i GREATER THAN SEVEN? 
6547 101004 BHI 1$ ‘YES -- BRANCH 


nn re a ee eee 
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BRE RoR OR RSE ROIS Casa ce here ER RM MOMeEee Bt 


65H 


027560 


ae 


snes 


"@4-NAY-77 1 


111102 


Be 


pee ba ba Ba Pe 
—-Or 
bes pe 


R 
— 
Ne 


ewe Bees ae Ds 


J 
jw 
— fe 5 


a8 


te 


SOD 


MOVE (R1),Re ;GET THE CHARACTER 
ae as Ee hue 
18: Ris RS RETURN 


; THIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 
;AND DETERMINE IF IT IS A DIGIT BETWEEN O AND 9. 


noe Oy, ARDRESS, OF RL, 
| hey 


NOT BETWEEN 0 AND 9 


Re BEr ° 


CK.DEC: CPB  (R1),#’0 LESS THAN ZERO? 
BLO 1S :YES -- BRANCH 
CMPB 3 s«(R1), #°9 GREATER THAN NINE? 
BHI 1S ‘YES -- BRANCH 
ii afi Sree ma ASCII 
BEE PaaS tRoTuST 
1S: RTS RS : RETURN 
Beene Ifa HILL CHECK AN ASCII CHARACTER TO 
a MOV #ADR, RI II CHARACTER 
; JSR RS. CK. CHR HE CHARAC 
RETURN AbKe ae | (RL)=AOR+L 
; TURN bee ears 
RETURN ADRS ‘DIGIT BETWEEN 


Te i 3. 
;R2 = DIGIT # (R1)=ADR+1 
CK.CHR: TSTB (R1) 
BE 


i” 9 
BEQ : -- H 
CMPB s«(R21+), 8” "PERIOD"? 
, CK. DEC lai 
J CK. OCT 
TST (RS)+ 067A BETWEEN 8-9 
TST (RS)+ ‘DIGIT BETWEEN 0-7 
1S: TST (RS)+ : PERIOD 
es: TST (RS)+ : 
3$: TST (RS)+ ‘CARRIAGE RETURN 
INC Ri "MOVE POINTER 19 NEXT CHARACTER 
4§: MOV (RS), ‘UNKNOWN CHARACTER 


RTS RS 


RS 
;THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL 
CHARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER IN Re. 


wre ee ee ee em ee a ee 
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6604 ;CALL 
behe Hey SNR RS IARKS REGNITUBE OF INPUT nureen 
reas ; JSR ao ; CHECK ‘et gi —- R200 
: - R2=0 
ceil TURN ADRS fit eae ae See eet 
ria RETURN ADRE ie = NUMBER 
Bi wer oe wy) 
at ae PY NOY Re, -(SP) Fe SIZE ON THE STACK 
ah tictic on a 
bese torrie paben Be me catinaes qe Kae eHGRAC TERS 
14 14 95 IAGE RETURN 

6624 027716 030008 6S fore 
ree ree 5 tere ‘3 DIGIT 0-7 
6627 0277e4 1§ DIGIT 8-9 r E 
bbe8 027725 062705 000004 1S a0D 84, RS ister RETURN POINTER PAST “CR" & “PERIOD” RETURNS 
B60 SSM Bee HOV R3, -(SP) ; SAVE — 
6632 fey ra8 ree ASL R3 :#8 
ees a pees ADD RS Ra’ poate THE. INPUT NUMBER 
6635 277% O04S37 027620 JSR —sRS CK. CHR : ONE TER 
oo 027752 030012 : tite CHARACTER 

BSrree ferrre 4 Za 
6639 027760 027766 35 te 
6540 MES : T 
ees terre 106711 3S 3 (R1) penee FOLLOW THE “PERIOD” 
fea Geren Geet os it Oren! Te serum 
Bru? GS0008 Senate 8: RS SP) Reet ne cae _T UGER 
6648 030002 101004 BHI 9s 
eo ae ; Pe oe5)+ fies TEE we PAST INVALID RETURN 
cel EO Bere eit ash ett RET 
Ga Baie lee oe Be i a 
bbae 03002¢ 01 sens NOV (3P)+ 8 at, 

030004 O11 MOV (RS), RS URN ADDRESS 
6658 030026 000205 RTS  —s- RS RETURN 


3 
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6660 ; THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
6661 ; UNSIGNED DECIMAL ASCIZ NUMBER. 

ppp -(SP) | ;PUT THE NUMBER ON THE STACK 

eePy Fee BANGER 5 PAL 

6665 ; RETURN “ADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 
6665 : NOTE: RES THI FORM O OF *$SB2D’, NOT THE VERSION ON 
see Ores Tg TORRE HERAT WS" he 

6570 016637 030054 $SB2D: MOV 2(SP).1 ;SAVE THE BINARY NUMBER 

6671 oe 01274% here MOV HORE tsp :SET THE POINTER 

6672 O30042 004737 032622 JSR Pc, $0620. ? CALL DOUBLE LENGTH CONVERT 

6673 O30046 012666 000002 MOV (SP)+, (SP) ‘PICKUP THE POINTER 

6674 0300S2 000207 RTS PC : RETURN 

b/s 030054 000000 000000 1S: .WORD 0,0 

6577 ; THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
6678 i UNSIGNED OCTAL ASCIZ NUMBER. 

6680 MOV NUMBER, -(SP)  ;PUT THE NUMBER ON THE STACK 

6581 ; ISR PC, $SB20 : 

6682 RETURN ‘ADORESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 
ceed : NOTE: THE PROGRAM REQUIRES THIS FORM OF ’$SB20’, NOT THE VERSION ON 
B68 : THE SYSMAC LIBRARY, REV C AND LATER 

6687 030060 016637 O00002 030104 $SB20: MOV 2(SP) NARY NUMBER 

6688 030066 01274 030104 MOV aie 2tad) ise Te PRINTER 

6689 030072 004737 033016 JSR PC, $0820 We DOUBT LENGTH CONVERT 

6690 030076 012666 00002 MOV (SP)+, 2(SP) ‘ BTCKUP THE POINTER 

6691 030102 000207 RTS PC * RETURN 

bb Se 030104 000000 co0D00 1S: .WORD 0,0 

6694 ;KEYBOARD INTERRUPT INITIALIZATION ROUTINE 

6595 ? CALL 

66% : JSR PC, STKINT 

6697 : RETURN 

6699 030110 012737 030140 O00060 STKINT: MOV eS TKSRY TKVEC  ;SETUP VECTOR 

6700 030116 012737 000240 O0000b2 MOV TKVEC+2  ;PRIORITY TO S 

6701 030124 005777 151016 TST 387 sTkb. *CLEAR THE BUFFER 

6702 030130 012777 000100 151006 MOV #81T06,aSTKS SET INTERRUPT ENABLE 

6703 030136 000207 RTS PC : RETURN 

6705 ;KEYBOARD INTERRUPT SERVICE ROUTINE 

6706 : CALL 

6707 : ENTER VIA INTERRUPT 

6709 030140 104410 STKSRV: ROCHR :READ THE KEYBOARD 

6710 030142 112637 030270 MOVE  (SP)+,5$ ‘GET THE CHARACTER 

6711 030146 023727 030270 000003 CMP S$, 83 :*CONTROL C’ ? 

6712 030154 001012 BNE 1$ ‘BR IF NOT 

6713 030156 104401 001165 TYPE » $CRLF ; CRLF 

6714 030162 104401 030562 TYPE SCNTLC 4c? 

6715 030166 012737 177777 001262 MOV b-1, CFLAG :SET THE “CONTROL C’ FLAG 
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150744 gr a eye THE TTY INTERRUPT 

001140 OO00176 IS: CMP SWR , SSWREG Fotta SWITCH REGISTER IN USE ? 
70 000007 , 87 ; CONT G’ ? 

ase oe FeonTRO 


a 


194401 001165 TYPE » $CRLF :CR-LF 
Aoi, See awe vies) Sew? THE STATUS WORD ON THE STACK 
Ea ie gS RETURN "ABORESS 
150676 CLR aSTKS CLEAR T T ENABLE 

JMP SGTSWR ;GET THE “Salty GISTER. ENTRY 

100 150664 2S: HOV #100, aSTks ; W FeGISTE 
104401 030270 3S: TYPE ,5S ‘ECHO THE CHARACTER 

4§: RTI * RETURN 

oo0000 cs: .WORD O ;ENTERED CHARACTER 


ae ROUTINE WILL INPUT A STRING FROM THE TTY 


: ROLIN - INPUT A STRING FROM THE T 
: RETURN HERE t ADDRESS OF FIRST CHARACTER nu BE ON THE STACK 
: TERMINATOR WILL BE A BYTE OF ALL O'S 





6740 

6741 030272 01034 SRDLIN: MOV R3,-(SP) ; 

6742 0302074 OOSO46 CLR -(§$P) OPER THE RUBOUT KEY 
Pray OSDaGe Oee7Os | ASOeES yg: ORS TTVINSTG. Ra GUFFERCPULL? 

6745 heres rates, BLOS i BR YE 

674% 030310 104410 ROCHR *GO READ ONE CHARACTER FROM THE TTY 
Pia pata 125813 pn0177 nS ee nat 

Brus faosed | ABT oee tn a ‘BR IF NO 

6750 005716 TST (SP) :IS THIS THE FIRST RUBOUT? 
6 0303¢ 601097 BNE 6$ : NO 

6 030326 il 000134 030546 MOVB =: 8#°\, 95 : A BACK SLASH 

ereH , te i737 a Pa (SP) T THE T KEY 

eyes Dona 6s: bee Eup BY ONE 

6756 030346 030550 CMP R3, #STTYIN tT BCK EMPTY? 

6757 103445 BLO 4§ ‘BR IF YES 

6758 030354 111337 03054 MOVB  (R3),9S ; SETUP TO TYPEQUT THE DELETED CHAR. 
6759 030360 1 030546 TYPE 9$ 

6760 BR G0 READ ANOTHER CHAR. 
6761 030366 005716 Ss: TST (SP) :RUBOUT KEY SET? 

6762 001406 BEQ 7$ : BR 

6763 il 000134 030546 MOVE = #’\,, 9 TYPE A BACK SLASH 

6764 104401 030546 TYPE 

6765 O30404 O0S0I6 CLR SP) ;CLEAR THE RUBOUT KEY 
6766 O30406 iee713 o0002s 7$: CMPB 3s #25, (RB) -TS CHARACTER A CTRL U? 
ah Ba04i4 TDS 032370 ONE TF NTLU sR I a CONTROL +“ 

£768 Sase ee 000003 10$ om is (R3) 160 BHARAC oer CTRL C ? 
6771 O30426 artis BNE 8s" ‘BR IF NOT 


Se et me 


6800 
6801 
6802 
6803 
6804 
6805 
6806 
6807 
6808 
6809 


§ fb oo enema ene eDan 
ae aaa 
WD NOU Wr Oo 


RRRIBRES 






oSnuo-— 
Bs 


2B ooo 
bo be be 

- — 

eSBrees 
-_ 

fT 


$e 


177777 001262 
030S62 


000012 
001165 
030SS0 
001164 


46 
1S 


o0s015 


150330 


MOV 8-1, CFLAG ;SET CNTRL C FLAG 
TYPE SCNTLC cH IT 
gS: Brae r 5 ina) iT Can CHARACTER A "LF"? 
BNE ‘RANCH 
CL (R3) ; 
TYE srrvin Ae I TRING 
Aa te het in AScTER 
4g: TYPE 5 Tipe ae 9” 
BR i THE BUFFER AND LOOP 
3S: HOVE (R3), 9S ice THE CHARACTER 
CMPB 4 s«aS, (R3)+ ;CHECK FOR RETURN 
BNE 2 ‘LOOP IF NOT RETURN 
CLRB = -1(R3) : RETURN (THE 15) 
TYPE F ; TYPE ALINE FEED 
11S: TST (SP)+ CL T FROM THE STACK 
ay (ap) tap) oust TACK T SS OF THE 
MOV 4(SP}_2(SP) iF ASCIT BNO UABACTER DR IT 
nov eSTTYIN, 4(SP) 
9S: .BYTE O rate FOR ASCII CHAR. TO TYPE 
‘BYTE 0 : TERMI 
STTYIN: .BLKB 10. *RESERVE 10 BYTES FOR TTY INPUT 
SCNTLC: :ASCIZ /?C/<CR><LF> :CONTROL “C” 
EVEN 
: 5 RARE LALLE LEE LLEE ELE LAA EA REAR AE EARL ARAL RAR LAE LA RARER ALE A ERLE EE 
.SBTTL MACRO ROUTINES 
.SBTTL ERROR HANDLER ROUTINE 
+ SEAKKSERREAREASRE REARS RSRE REE EREE SSAA RELA EAA HRARAALAAKRHARAA ALLE 
t ETHIS ROUT INE atten WEEN THE ERROR FLAG AND THE ERROR SOUT, 
j#SAVE THE ERROR TT NUMBER AND THE ADDRESS OF THE ERROR C 
:#AND GO TO SERRTYP ON ERROR 
:#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
:#SW1S=1 HAL ERROR 
:*#5W13=1 INHIBIT ERROR TYPEOUTS 
j #54101 BELL ON ERROR 
i ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR 
CKSWR ;; TEST FOR CHANGE IN SOFT-SWR 
MOV R3, ATTN i dave THE ATTENTION REGISTER CONTENTS 
MOV R1; DRIVE - DRI NUMBER 
BIT #SH13, ISWR INHIBIT PRINTOUTS ? 
BNE .+6 ‘BR IF YES 
JSR PC, STIME “TYPE THE T INE 
7$: INCB SERF ::SET THE ERROR FLAG 
BEQ $ ::DON’T LE Re FLAG GO TO ZERO 


— EEE EEE — 


Hid RERERPRARE LA Sed aie ula iilurer et et teed iittcteton ts 


cP AS NEO RE ANTHRO AT Ok re 


030624 013777 001102 150310 MOV STSTNK, SOISPLAY DISPLAY TEST NUMBER AND ERROR FLAG 
ergs 002000 150300 Bis lp hae js PELL ON, ? 

104401 001160 TYPE ; FRING BELL 
Raped Bate 18: AO #E5Tbenepe 1 EP Lo DHE WOOP B Ron Piet auction 
heres t PEROoF a ti§ nove BEEPS rene ;;STRIP AND SAVE THE ERROR ITEM CODE 
030672 : g20000 150240 BIT #81713, OSWR ii SKIP TYPEOUT IF SET 

030740 ao SERRTYP ieee TYGERCE ERROR ROUT INE 

104401 001165 TYPE scRLF 
ei em ee Beet 
Gre 00008 HALT +a rie Son] are 
030722 104407 a CKSWR EST FOR COHANGE IN SOFT-SWR 
Rao7o4 023737 oo0042 ooco4% ~~ ne ane, ae ARE WE IN acT-11 AUTO MODE? 
hee reared HAL : iA 4 “ON ERROR IF ACT AUTO MODE 
030736 o00002 RTI * RETURN 


-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


; J SOSEORESESUEDHDERUSUOSSSESECRERERSSUREEsEEEDERSesSOEsEEREtEE 
THIS S ROUTINE USES THE “ITEM CONTROL BYTE” (SITEMB) TO DETERMINE WHICH 
;#ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE TP RROR TABLE” (SERRTB), 
#AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SB074o 104401 001165 eelhiar SCRLF -"CARRIAGE RETURN” 8 “LINE FEED” 
030744 O10046 MOV RO, -(SP) i Cove RO 
030746 005000 CLR RC *:PICKUP THE ITEM INDEX 
030750 153700 001114 BISB a@aSITEMB,RO 
030754 001004 BNE 1$ ii1F IF ITEM NUMBER 1S ZERO, JusT 
030756 013746 001116 MOV SERRPC, -(SP) ii oawe SERRPC FOR ee 
930768 Lowage TYPOC os He DORE TAL ASCII(ALL DIGITS) 
030766 005300 1S: DEC RO ; ; ADJUST THE INDEX SO THAT IT WILL 
006300 BSL RO oe WORK FOR THE ERROR TABLE 

eg eeery ASL RO 

1 031012 NOV ae +O OReUP Pr tess NTER 
G3 ote ini BEG. = i} SKIP Pp "eegUh IF FRO POINTER 

1012 2s: .WORD O : POINTER GOES HERE 
neste ery 001165 TYPE SCRLF  Hepmn Resear iniek “LINE FEED" 
63102 031030 3S: MOV tRO)+,4S ; s PICKUP vena HEADER” POINTER 
Bie Tee ‘~ S fine Neon 
031030 4: .WORD OO i A HE aobRe POINTER GOES HERE 
031032 104401 001165 TYPE.  ,SCRLF “CARRIAGE RETURN” & "LINE FEED" 
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031132 


- = = - =i = 

ft) ) G) GOD! 
ee ee 
ee ee bee ie pee fe fee bee ee 


NERS LOSE ESR 


011000 


001157 


S$: MOV (RO) ,RO 5 ;PICKUP ATA Tome” POINTER 


" Ay ae Hits AGE RETURN” & “LINE FEED” 

i RTS pe i ca 
MOV Q(RO)+,-(SP)  ;;SAVE 3(RO)+ FOR TYPEOUT 
aes 8 Rete WdtesPadaaas =r 
TYPE 4g Hid TWo(2) SPACES 

8S: -ASCIZ , 7 :?TWO(2) SPACES 


-SBTTL TYPE ROUTINE 


+ JHIHIHHHIEHIHIEHHHIHHHIHHHHIHHHHHEHHIHHHHIHHHHHHHH UHHH 
t ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE re A O BYTE. 


ona MBRULL CQUTRINS THe GHARECTER TO Ge USED AS ThE FILLER CHARACTER. 
NOT 


t NUMBER OF FILLER CHARACTERS REQUIRED. 
j NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

CALL: 

141) USING A TRAP INSTRUCTION 

ite TYPE  , MESAOR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
te TYPE 


3% MESADR 


STYPE: TSTB yrrris ;;1S THERE A TERMINAL? 


He 2 Heh HERE IF NO TERMINAL 

is: HOY RO, -(8P) ; SAVE RO 

2s: VB as +,*+(S5P) aes at PR io oe TYPED ono STACK 
BNE «4S jiBR TE IT ISN'T THE T 
Ter (SB) i INATOR POP IT OFF THE STACK 


S 
; j §ADIUST RETURN PC 


4§ CMPB ss BHT, (SP) + RANCH IF <HT> 
bie ce F, (SP) ; BRANCH IF NOT <CRLF> 
TST (SP)+ ii POB (CR) <LF> EQuiv 
TYPE ‘TYPE A CR 
CLRB § S$CHARCNT ii CLEAR CHARACTER COUNT 
5S: SR STYPEC 160 TYPE Th This 3 15, CHERRC cr TER 
6S: CMPB 4s SF ILL, (SP)+ IT TIME FILLER CHARS. ? 


BNE es Ue i ab tet tant 


ne a ee 
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6940 031174 


o 
a ee ee oe 
ad 
— 
o 


B888858 


ai 
ALALAIA 


AlA 


RES TIRER BER oRe eS 


a 


io 
? 
be bs bb b= ee bn fe bs he ee ee bs et ps ee 


S888888 


Ww 


fee ee 
mo 


S58 
ane 


001154 
000001 


031810 


000040 
031244 
000007 031310 


147700 


031310 
ooooie oo00d0e 


6 
6995 031314 017646 000000 


MOV SNULL , -( SP) ff ane 
7$: DECB 1(SP) SA 
egPOP He PULL OFF OF STACK 


i, PE grvpec LB wa ise AS A COUNT 


BR 7§ ae 
sHORIZONTAL TAB PROCESSOR 
85: MOVE 8° , (SP) ; {REPLACE TAB WITH SPACE 
98: JSR PC,$TYPEC : TYPE A 

BITB sa, NT {| BRANCH H JF Nor AT 

BNE He 

TST  (SP)4 + OFF STACK 


tIGET CHARACTER 
STYPEC: TSTB  SSTPS ::WAIT UNTIL PRINTER IS READY 


HT? YR eR LER WE Ba 


BNE 
CLRB T a slee, MOHARACTER COUNT 
1s oRPE es 2(SP) + OeTT eRACTER A LINE FEED? 
: BEQ STYPEX + BRANCH IF YES 
INCB = (PC) + :COUNT THE CHARACTER 
SCHARCNT: .WORD 0 :: CHARACTER COUNT STORAGE 


STYPEX: RTS PC 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


55 EE 8 9 2 a a a a 
jATHIS ROUT ie IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


j OCT AL (ASCI R AND TYPE IT. 
j #STYPOS YPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
‘* MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
# TYPOS >;CALL FOR OUT 
1% .BYTE N -:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
;# -BYTE MM 3;M= 0 
:# ;;1=TYPE LEADING ZEROS 
ii -:Q=SUPPRESS LEADING ZEROS 
j ESTYPON-~--ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
i #8 TYPOS OR STYP 
i MOV NUM, - (SP) ;NUMBER TO BE TYPED 
it TYPON CALL FOR TYPEOUT 
| STYPOC-—-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
iP MOV NUM, - (SP) ;;NUMBER TO BE TYPED 
* TYPOC *:CALL FOR TYPEOUT 


STYPOS: MOV a(SP),-(SP) ;;PICKUP THE MODE 


en ee a ee ee eee 


a a i ee ee ne + SS 


| Baba oAPRANEe8 TIED ORYE OPETRRRy 10" Seth “Cager 


69% 031320 
6997 031326 


So Benn S cs Bae 
BESBSSE888 


be be fe Pe fe Pe be fe pe Oe 


BEB 
abo aae Roe 


AISAIANS 
OnNOUW CWE 
paRaeanee 


4e 
444 
450 
452 
454 
4b 
464 
470 
474 
S00 
SO4 
210 


wu 
pmo Gm Gm 


Soo 


£m 


03 
031 
031 
031 
31 
i 
31 
131 
131 
031 
r31 
031 
Ts 

Bi 
031 
031 
ey 
031 
031 
031 
031 
031 
031 
031 
031 
031 
031 
031 
031 


i 
fe 
re 
fe 
fs 
is 
7035 
fe 
iS 
oe 
i 
ie 
ie 
8 
7050 


: 


116637 


000001 031537 


12637 03154 


SEES 


Le el 
eS 


=8 
a 
Be 


1403 


S27 
TE 


pris 


o 
pe fee 
x 
- 
o 


Bane 


000001 031537 
1541 
1536 





oo00de 000004 


| 
| 


MOVE -1(SP), SOFILL 
MOVE (SP) SONODE +1 
saoak en si, Le 
soo BE 
MOV RY, -(SP) 
MOV -(5P) 
ee 
Ra’ $0 
Hove SOFTLL, 
MOV 12(5P),RS 
CLR R3 
1S: ROL RS 
BR 3 
2s: ROL 
ROL 
ROL RS 
MOV RS,R3 
3S: ROL R3 
pe yon 
IC $177770,R3 
TST RY 
BEQ S$ 
4: INC Ra 
BIS #’0,R3 
SS: BIS g’ 'R3 
nove R3, 8S 
73: bECE 1 
Og 
he ORS 
BR 2s 
6S: MOV (SP)+,R5 
MOV (SP)+)R4 
MOV (SP)+/R3 
MOV 2(SP)'4(SP) 
MOV (SP)+' (SP) 
8S yi 
"BYTE 2 
SOCNT: .BYTE O 
SOFILL: BYTE 
OMODE : 0 





EY a 


“MAY-77 11:01 PAGE 132 
TYPE 


;;LOAD ZERO FILL SWITCH 
;;NUMBER OF picths TO TYPE 
;;ADJUST RETURN ss 


;;SET THE ZERO FILL SWITCH 
StH HELE ir 
;;SAVE RY 


+3 
» -SEVE 
+:GET te NUMBER OF DIGITS TO TYPE 


;; SUBTRACT IT FOR MAX. ALLOWED 


Lek he 


; CLEAR OUTPUT 
+ ROTATE INTO “C” 


ari 
38 THIS DIGIT 


ee 


ace 
mae 


OAR RR 
“~unww 
£393 

B2R 


>: STORAGE FOR ASCII DIGIT 
+ FERNINATOR FOR TYPE ROUTINE 


tt RENGER OF BIGITS TO TYPE 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


ne ne ee 


THIS ROUTINE IS USED TO CHANGE A 16 


5 REEL REESE AREER RE EARLE SEES E AREAL LA RAL E EE ERRRRL LALLA ELLE L EE 


BIT BINARY NUMBER TO A S-DIGIT 


3 ee eee ee 


“Eu x : = 

* ! ea ae 

g2a 8 S Sie oe | ee 5 £ 
i eg i thy =i piize So oe 
: = ee ee 

ee Sy S555 Seat s" 2, #8 a y 
Ts ee 
i ke SilRaeiaaa! Hei eomanee 


-_- 
- — - 
Aen aad RE goed Sead 
nate ame hae he ~ 4 cu — 
o5 5Sau % foeRR- 8 Uo e ‘wus ,2 = aT 
Sw a TTT Tae ir a we CG = = oo =e no = Go~~*** aa 
<o 2 saveUnw et wasrensen eters ese mes te SaaS 


CONVERT BINARY 
t 

; 

’ 

: 

:# 

STYPOS 

1§ 


2s: 
3$: 
4§ 
S$ 





ba 
BS oS Se iE eh es 


RPO4/S/6 MULTI-DRIVE EXERCISER MACY11 
00000 
7777 


24-MAY-77 11:04 


MD-11-O0ZRJD-8 
Pil 





echediluds ech ictew Whe wee Ue SE Sree 


Gh hh a a at a ad dt ad ed ed ed td ed end nd ed ee ad eg Gd Cd ee 


wih ee 
33833 S88 88888 S88SSS8SS8SSs3SS8SSs3 S88 8S88sss 


BE BREE BBB RB BER BBERREREPREREESECEEBE CREPE OEE 


=: 
a ‘BBBEREE AME SE SaemadaneredaionPe ate teSeaaeets 


S$ 8 

;. 

S 3 

Hadeneers 

a OOOO 
GNSS 
S983 

BS88Sess 


N10 
BidhaR* PRUE) SER MER SI FEU ROPE fle POE 


Db 0 b= b= b= = b= bh bb bP = bo et 
BBR RR OR Baa Nonson- ose 


NININNNN NNN NN NNN NN NNN NNN SISISINSSISINISISINISININSISSISISISIIIISIS SIS 


EHO S SEO ONL OSS RAE SO SSRI OS 


000012 10. 
000004 SDBLK: .BLKW 4 


-SBTTL TTY INPUT ROUTINE 
As saat * aan teachable 


MG SESE BE SESE 06-06 6 Jb 98 4 a a Sb a a a a a a a HE 


= ane Sete QuTTCH REGISTER TRAP CALL 


031742 A (SP)+, (SP) 
ik R «RETURN TO USER 
Bins Bis SOTBL: 1 ; 7 

031 1 1000. 

031752 100 

031754 

031756 





* WHEN 
031 000176 001140 $CKSWR: CMP al THE SOFT-SWR SELECTED? 
ik 1756 arta 18 pias Eto 
131776 105777 147142 ey . 
ee , 147136 EOYB ies SP) ee geet RS 
feo baorie 177600 BIC atCi7>. (SP) THE asc 
4 dz2726 000007 CMP 
1062 BNE ey ‘3 0 USER 
123727 001134 000001 CMPB © SAUTOB, #1 iB, WE LORNING IN AUTO-MODE? 
001456 BEQ 1S$ -  $iBRANCH IF YES 
104401 032375 TYPE  ,SCNTLG ;;ECHO THE CONTROL-G (1G) 
iow Ose40e SGTSWR: TYPE SMSUR >: TYPE CURRENT CONTENTS 
heads TYPOC y +180 ivpe TAL Age TIAL DIGITS) 
O4401 032413 ae TYPE rca ::PROMPT FOR NEW SWR 
a) -(5P) + te Ned SWR 
032060 105777 147060 7S: TSTB © aS TKS ‘CHAR THERE? 
032064 100375 BPL 7§ :: IF NOT TRY AGAIN 
032066 117746 147054 MOVB  aSTKB,-(SP ;;PICK UP CHAR 
032072 042716 BIC #1C177, (SP) ::MAKE IT 7-BIT ASCII 
032076 021627 000025 9S: CMP (SP), #25 3318 17 A CONTROL-U? 
032102 001005 H IF 
032104 104401 032370 TYPE SCNTLU ites ECHO CONTROL-U (¢U) 
032110 062706 20$: ADD ké. SP :T PREVIOUS INPUT 
032114 000757 BR 19$¢ PET'S TRY IT AGAIN 
032116 021627 o00015 10$: CMP (SP), #15 >:1S IT A <CR>? 
B30 128 001022 BNE 16$ He H 
032124 005766 000004 TST 4(SP) :YES, IS IT THE FIRST CHAR? 
032130 001403 11S ::BRANCH IF YES 
032132 016677 oo0002 147000 MOV 2(5P), aSWR SAVE NEW SWR 


eee eee ee eS 


wie hie ab Ae | 1 ag Oe eur hie 26-MAY-77 11:01 PAGE 13S 















716% G3 11$: $8 
71 Je 14S: T F ss 
7166 3c 1135 000001 SINTAG, #1 +3 
7167 G3 OC BNE se $8 
71 Je ' 000100 146756 poy #100, a$TKS $8 
ot58 OS813B Oe 1204 es: SR oc. stvpec + 
<”- | ee 
7171 Qae 0 16 : CMP (SP) wee 3 
71 B3e200 0c BLT 188 33 
7173 GaSe D2 Ibe 000067 che c ), 867 33 
: Be 18 (SP)+ ::STR 

a aaa at 
’ 
ASL es He 
ASL (SP) A 
ASL (SP) 38 
178: INC 2(SP) : 
BIS -2(SP), (SP) t 
* 7$ 33 
18$: YPE S$QUES $5 

BR 20 >: SIMULA 


2 SHSSSSRSHSSSSSSSSSASLASLELESLASELARSSSSERRRERARRSREEREEAE SEALE 
7190 THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
713 ie a ROCHR an ;; INPUT A SINGLE CHARACTER FROM THE TTY 
713 iH eps yet) SARITY BIT STRIPPED OFF 
71% , 
7197 011646 SROCHR: MOV (SP), -(SP) ; ;PUSH THE PC 
719% 1 g00004 oo0002 MOV 4(SP),2(SP) 35 SAVE 
abs : 146660 1$: Bre asTKs aw: FOR 
7201 reacts 146654 O00004 MOVB a 4(SP) +3 ae ae 
rote 177600 go000s BIC 8tC(1?7> 4(SP) 3;GET RID OF JUNK IF ANY 
000004 3 CMP 4(SP), #23 :15 IT A CONTROL-S? 
5508 fe Os if fx: 
1 14662 2s: S asTKS >:WAIT FOR A TER 
et) ine BPL es 5 sLOOP UNTIL THE 
1 1466 MOVB a$STKB,-(SP) ss CHARAC 
roe 17200 Fe BIC 8¢C177, (SP) i IT 7-B1T ASCII 
1 CMP (SP)+, bel IS ITA -Q? 
7210 j BNE 23 is 1 NOT ISCARD IT 
rth 000904 000140 3S: CMP 4(SP), 8140 sie tT CASE? 
7213 BLT 4§ 5s BRANEH IF YES 
7e14 000004 000175 Cr H(SP), 8175 i318 I a ECIAL CHAR? 
7el 042766 OfCI040 000004 BIC 840, 4(SP) ::MAKE IT UPPER CASE 
721 oodon2 4s: RTI *:GO BACK TO USER 
7218 052536 035015 000 S$CNTLU: .ASCIZ /tU/<15><12> ::CONTROL “U" 
7219 136 006507 000012 SCNTLG: .ASCIZ /#6/<15><le ::CONTROL “G" 





MD-11-OZRJD-8, RPOW/S/6 MULTI-DRIVE EXERCISER iy 1) AR 26-MAY-77 11:01 PAGE 136 


DZRJDB.P11 | 24-MAY-77 11:04 TTY INPUT ROUT 
020122 S$MSWR: .ASCIZ <15)<12>/SWR = / 
feel Basi Bae ee 
1 047040 OS3SOS SMNEW: .ASCIZ / NEW = / 
7223 032420 036440 000040 
7225 .SBTTL RANDOM NUMBER GENERATOR ROUTINE 
7227 | HHHHHHHHHEHHHiIIEEHH HEHEHE Hi HE EEE EE BEE at 
rs ulin BPR OF 8 RDaamses ion ube Moon MEER Cerenaron 
rea is is “a RET Ma Tee RANDOM 
7233 1% + PBER ‘in BE IN 
rom :e : SHINUM, SLONUM 
72% gaevey SRAND: 
7237 010046 MOV RO,-(SP) ;;PUSH RO ON STACK 
7533 GaeNae pipeue MOV ORB CSP) +S UGH Re ON STACK 
7240 oe sear 032524 MOV SLONUM, RO SET RO WITH LOW 
7241 032436 913701 032522 MOV SHINUM, R1 ssET Ri WITH HIGH 
reve O3sew4e Ol2702 177771 MOV 8-7,R2 :: TSH 
ea: 1$ ASL RO 5 BHE RND 
Foue feNee | beens me OB i REC FOR DONE Se 
72% 0320454 001374 BNE 1§ >: CONTINUE SHIFT LOOP 
roa tes pea wee SoM ARNE ame % 12 
7249 1 032522 ADD SHINUM, R1 >: ADO TO MAKE X 129 
750 Gaei70 062700 001057 ADD $1057,R0 He Ow TANT 
1 74 i ADC Ri 33 
7252 O3c476 06270; 047401 00 #740 Ri > ADD HIGH CONSTANT 
i5ea piso pips MOV tT i ave Ri 
7255 O3eSi2 Ol2602 MOV (SP)+, Re ::POP STACK INTO Re 
756 G3e514 O1e601 MOV (SP }+,R :: POP STACK INTO Rl 
r5e— Gaseeh boneu? Ars pe a 
7259 032522 176543 SHINUM: .WORD 176543 si 
7260 032524 123456 SLONUM: .WORD 123456 
72be2 .SBTTL SAVE AND RESTORE RO-RS ROUTINES 
7264 . ee. eee ee ee 
7266 : tt 
7267 ;* 
7268 : *UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE 
7270 : #TOP---( +16) 
7271 ;% nme s18) 
7e7e 5% +4---RS 
7273 + +6---R4 
ren ;# +8---R3 
7 ;#+10---R2 


MD-11 


7 


a 
a 


SESGHSRREE II IAAT OR SRaBSRRTORO RUSS 


Sossassaes 
WONMUIC WO 


BSS SSRSSRES 


“ 
& 


+ 
a 


AtA 
v7, 


A 


= 
F 


i 


i 
4 


Y 
Oooo00c000o0 
le ee ee en a ee ne 


saaeeeeD 


eT! 


cee bn 


2 
— 
tT 


RSE 


OoO0000O0 
BUBRAVE 
= O 


ES 


o 
— 
= 
ee 


oood2e2 
000022 


sense 
++ 


NMNNNe2 


JUUUUe 


000012 
032732 
032734 


MULTI-DRIVE EXERCISER MAC 
11:04 SAVE AND 


3 #+12---R1 
;#+14---R0 


SSAVREG: 


23 


$83e85ee8 
RARRAZGARAB 
BEGG rrr es 


i 
: 
3 “< 


ee ee 


geeeeeeees 
B2RozaRRNN 


26-MAY-77 11:01 PAGE 137 
RESTORE RO-RS ROUTINES 


eeuustaaae 


SRSBARL 
ARARVLISSFS 


+ Pop STREK INTO Ri 
top STACK INTO RO 


.SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
+ JGGHGHI EEE HHIHIEIHE HEHEHE HEE EEE Ee aba 
NUMBER TO AN UNSIGNED 


# MOV 

;* JSR 

;* 

$0820: 
MO 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

1$: CLR 

es: 


i KTHIS ROUTINE 
: ¥DE 


WILL CONVERT A 32-BIT BINARY 
eg RI) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 


;;POINTER TO LOW WORD OF BINARY NUMBER 
;; THE FIRST RODRESS OF ASCIZ 
;;I1S ON THE STACK 


;;SAVE REGISTERS 
;;PICKUP THE DATA POIN 


INTER 
tIPUT ADDRESS OF ASCIZ STRING ON STACK 
;;PICKUP THE BINARY NUMBER 


;;SET UP TO DO 10 CONVERSIONS 
;;ADDRESS OF TEN POWER 


;; CLEAR PARTIAL 
;; SUBTRACT TEN POWER 


Ell 
BIT aber? Misdd PVE OERGAGERS LPRETA’RERAAT PG DERTHAL AScrd éBAVERT Rolf ine 
SBC 


032666 005602 Re 
79 1 SUB (RS) ,Re 
BL 3$ ;;BR IF TEN POWER TO LARGE 
74 INC R3 ::ADD 1 TO PARTIAL. 
B5708 tS 3s: BR (R4)+,R1 + OF one SUBTRACTED VALUE 
oosso2 ADC Re 
00 (RY)+, . 
Faeroe beacos ; (Re}2°tRs)+ —- ;MOVE_TO_NEXT TEN POWER 
1 000060 BIS #’0 + PARTIAL TO ASCII 
R3, (RO)+ He 
16 DEC (PE)+ : : DONE? 
032720 000000 4§: . WORD 0 * 
Lae / we ee 
135754 ibsie6 clr Bie + PR A TNATOR 
03278 10441 SREG : :RESTORE REGISTERS 
032730 000207 RTS PC +s RETURN 
faery Adee STNPHR: 117000 _— 
03273 160400 160400 ;;1.0€08 
032740 002765 2765 
032742 113200 113200 :;1.0€07 
SSE 5 iets 51 100 1.0€06 
032750 000017 17 Bs 
eres pitt) a pane 
3420 ;;1. 004 
032760 000000 
032762 001750 1750 :;1.0€03 
ey ee . a 
032772 000012 le ;;1.0€01 
032774 000000 0 
032776 000001 1 ;;1.0£00 
033000 900000 0 
033002 000014 SDECVL: .BLKB 12. ; ;RESERVE STORAGE FOR ASCIZ STRING 


-SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
5 = 3-333 3-3 3-0 3 3 2 2 JE 3 EEE EE EEE EE EEE EEE EEE EE EEE Eg i ea 
UNSIGNED BINARY NUMBER TO AN 


*&THIS ROUTINE WILL CONVERT A 3e-BIT 
j BURNS IGNED OCTAL ASCIZ NUMBER. 


Ji 


: MOV #PNTR, -(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 
i JSR PC, as$0820 CALL THE ROUT 
i RETURN :: THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
033016 104412 $DB20: SAVREG ;;SAVE ALL REGISTERS 
016601 ooo0n2 MOV 2(SP),R1 ::PICK THe POINTER TO LOW WORD 
seagie 033135 MOV SSOCTVL+13.,R5 ;;POINTER TO DATA TABLE 
033030 012704 000014 MOV #12. ,R4 ::DO ELEVEN CHARACTERS 
033034 012703 177770 MOV #tC7'R3 
032040 012100 MOV (R1)4,RO + LOWER WORD 


° 


SeAnReGRCeseIaAG Bee aae 


a bs pe Be be be pee pe 
WOnNMUW CWO 


PYYVYYYVYIY? 


2??? 
2OREB8 


2? 


MULTI-DRIVE EXERCISER MACY11 27(1006) -MAY-77. 11:01 PAGE 139 
11:04 DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUT INE 


: 
z 
: 





fees aE i OO cl 
1S: nove te isPUT i a IN DATA TABLE 
’ ,° 
33 TER 
bees fe 5 3s tt Hd not I T DIGIT 
ccc: ee 
Gos2te Inc RS pai He breiTs bone -AOJUST POINTER Fo FOR FIRST 
1CKE se “ 
ae ae ome hes eet: Rett 
2s: ASR R3 : MASK FOR T T DIGIT 
eee eect 38: ROR Ri Pag BINARY RFR 
006000 ROR RO NEXT OCTAL DIGIT 
033100 006001 ROR Ri 
033102 006000 ROR R 
hela crsren Roe ORO 
033110 O40302 BIC R3, Re ;;MASK OUT ALL JUNK 
033112 O62702 o00060 ADD 8’0,Re *:MAKE THIS CHAR. ASCII 
033116 000753 BR 1S ':G0 PUT IT IN THE DATA TABLE 
033120 000016 SOCTVL: .BLKB 14. : :RESERVE DATA TABLE 
.SBTTL TRAP DECODER 
EE ET TRIP THE COMER EVIE OF THE “IRAE” INSTRUCTI 
‘ETHIS ROUTINE E MILL P PICKUP T QWER BYTE T THe NSTRUCTION 
fear 0 THE” dle REE H Hee PInae FOR The Sra TN IT WILL 
033136 01004 STRAP: MOV RO,-(SP) ; SAVE 
033140 O16600 ocoD002 MOV 2(SP),RO ::GET TRAP /AQORESS 
o3314 005740 TST =(RO) BACKUP BY 2 
14% 111000 MOVE = (RO), RO ::GET RIGHT BYTE OF TRAP 
033150 006300 ASL RO POSITION FOR INDEXING 
033152 016000 033172 MOV STRPAD(RO),RO ::INDEX TO TABLE 
033156 000200 RTS RO :G0 TO ROUTINE 
;;THIS IS USE TO HANDLE THE “GETPRI™ MACRO 
033160 011646 STRAP2: MOV (SP),-(SP) ;;MOVE THE PC DOWN 
033162 O16666 000004 oDDD0e MOV 4(SP},2(SP) $80 THE PSW DOWN 
033170 000002 RTI ‘RESTORE THE PSW 
.SBTTL TRAP TABLE 
;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
BY THE “TRAP” INSTRUCTION. 
; ROUTINE 
033172 033160 $TRPAD: .WORD  STRAP2 
033174 031074 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
033176 031340 STYPOC ;CALL=TYPOC  TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 


ee 


r 
= 


a2 
28 


BBARR 


Se RRRP ORES 


CRERERPRERR ase tata daar Wiles 23 : 


033244 


1l 
ol -MAY-77 $ 
ones ent} DRIVE CERES raalt + ae 27(1006) 2@6-MAY-77 11:01 PAGE 140 


BSSSE888 = 


= 


$TYPOS ; ;CALL= =TYPOS 
STYPON i ; CALL=TYPON 
STYPOS ;;CALL=TYPDS 


SGTSWR ;;CALL=GTSWR 


TRAP+3( 1 . edt RP ( NG ) 
TRAPS 1G) Nee OcTAL MURBER (Re PER Las CALL 
TRAP +S ( 104405 ) CInAL NUMBER (WITH SIGN) 
TRAP+6( 104406) GET SOFT-SWR SETTING 


Trees iotTowia) THY TVBEIN CHRRAETER ROUT ine 


ae’ 
Geers i Gutsaeucee TRHGUIRIIG) BENG ATES UL ue 


, 
Y ::CALL=DISPLY TRAP+14( 104414) ROUTINE TO TYPE ERROR MESSAGES 
$TERM= RRBs be 


5p RRRRRRRAR EERE RELA ERLE EEE RAR REE REE EERE RA AREA EERE RARE ELAR EERE 


.SBTTL SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 


OPYRIGHT (C) 1976 
iBIGITAL a pe CORP. 


:MAYNARD, MA 
: AUTHOR(S): 10K PACEY/CHUCK HESS 
5 ARERR EELS SEES EERE EERE E LEAR ALARA ALAR LAR ELLA LE LEELA TELE 


intial FOR RPOS1, RPERI, RPER2, AND RPER3 ON AN ERROR “2” 


; ae 
IRPERRGSE = RPER3 
000000 O00000 RPERRS: .WORD 0,0,0,0 


; TABLE OF RVC = <O'1f BRive Ts 10LE ORS (DRVACT=8 BYTES) 
:DRVACT>O IF DRIVE IS ACTIVE WITH 
:DRVACT<O IF DRIVE IS ACTIVE WITH AN OO RROR RECOVERY OPERATION 
DRVACT: .BYTE O ;ORIVE O 
BL 0 j DRIVE 1 
‘VTE iPRIVE § 
-BYTE O ;DRIVE 4 
eyte 0 DRIVE 5 
‘BYE 8 ipRIVE 8 
; TABLE OF DRIVE STATUS INDICATORS (ORVSTA=8 BYTES) 
Aveta re ff pa tVe 13 F ite OR NONEXSI TENT 
:DRVSTA<O IF DRIVE IS UNSAFE 
DRVSTA: .BYTE O ;DRIVE 0 


T 
NG FOR THAT DRIVE 


OR THAT DRIVE 


= cs Zo 
Z ae 
— > -2 
z, g oe i 
~ w la) ww 
= z a8 a 
> 5 - hd tt 
“5 cecceee WEUEUUEY Fy. www FE yumwuwwy 
<= SESSA ataase SSSSSS55 ggg SS655555 gee SSagg505 
“tke tonnes BE de 
ez eee, za2 _— 
bea! CSaan Ss tant are 
é: ooat we os 
= prpanarans Saas nnn SEE panne See peer eereey 
2% SasanGe _eESeS, Ghammmig .o8 Saamnmng S88 Geamneae 
uw la a la la) 
Re . # : g 8 
@~u . S - Qa oo a 
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BSS8888 SSSS8888 s8388388 SSseeses 


a i. UL — 
ARRAS aESER ARR ARAER AD IEREREE 


MD-11-DZRJD-B8, RPO” 
"24-MAY 


DZRJDB.P11 


=] WORD) 


;THIS IS A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
0 


;"DPB” OF THE 1/0 OPERATION. 


- WORD 


; TRANSFER WAIT FLAG (TRNSWT 


TRNSWT: 


PUP Rrra cc eP Ree ERR ad Gag cr 3 


033356 000000 
033310 ooo 
033211 ooo 
033312 000 
033313 000 
033314 000 
033315 000 
033316 000 
033317 000 


es 
- = 
={= 
= = 


033322 000 
033323 000 
033324 000 
0333e5 000 
n333¢E 000 
033327 000 
033330 000 
033331 000 
033332 000000 


eRav=75 Ytdd ORE OPE lB He lle ret ro 


; SEARCH wart YS ¢ 
Is"¥S°a Be LORD UCU CELE THAT WILL CONTAIN A KEY ron net d 
/ 


Bee PTR REMEST BE caive 0. 


SRCHWT: .WORD 0 
i RPON/S 76, DEINE RTE OER Aen ibe BYTE) 

;ACTDRV>O IF DRIVER IS ACTIVE 
ACTORV: .BYTE 0 
; SOF TWARE iy 


ROUTINE TSTR=1 

;ACTS a IF SOFTWARE TIMER ROUTINE IS INACTIVE 

;ACTSTR>O IF SOFTWARE TIMER ROUTINE IS ACTIVE 
ACTSTR: .BYTE O 
; UNLOAD F ( BYTES) 

‘ULBELG=0 TF NO UNLOAD COMMAND 

;ULDFLG>O IF UNLOAD COMMAND IN PROGRESS 

;ULDFLG<O IF UNLOAD COMMAND IN WAIT QUEUE 
ULDFLG: .BYTE 0 ;DRIVE 0 

“BYTE 0 ;DRIVE 1 

BYTE OQ ;ORIVE 2 

BYTE 0 ;ORIVE 3 

BYTE OQ ;ORIVE 4 

gs 0 ;DORIVE S 

BE 8 IBRIVE 3 


; LOOK AHEAD COUNT (LACNT=8 BYTES) 
;LACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED 


LACNT: ‘ove 0 DRIVE 0 
"BYTE 0 ‘DRIVE 1 
-BYTE 0 Bale : 
BYTE f BRT q 
ane aN 
"BYTE 0 ‘DRIVE 7 
healt REO AVERE iG Te Seve Sant ORPOM/ 4b REGISTERS WHEN THE 
S 2OMBLETED ag PER Mast 
Patchy IF SAVE THE RH11/RPO4/S/6 he ISTERS, AS PER 


1 
: (DPB+14), AFTER AN ERROR. 
SAVEFG: .WORD 0 


K F (SEEKFG=1 WORD) 
oats TR CEKFGSD IF IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW 


ee 


Ji 
BBaH4GDPHHO-® oRPRACS¢ QURIA-ORUVE EXERGHSERDRE™ AAA” AAP DSbmcRSETE"akved! RD SHR 1 


7614 

7615 

71g 033334 000000 

- 

Ast 
Be 177777 
S332 177777 
O34 177777 
033346 177777 
0333S0 177777 
N333Sc 177777 
033354 177777 


Se RR RD RR EUR SRA MRNER 


033386 177777 
033360 001 
7641 033361 002 
my 033362 O04 
a ee a 
7645 033365 040 
7646 033366 100 
7647 033367 200 
is 
76 
7650 
7651 
7652 033370 000003 
7655 


033400 000004 


7665 033402 001000 


ERE PORTO Bata RaRePER Arce “BS TRPLYER seeks, 
‘DISREGARD THE WINDOW 


SEEKFG: .WORD 0 


;TINEOUT TABLE (TINER=8 ) 
;THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 
men et RE I 
"WORD -1 !DRIVE 3 
“WORD =k :DRIVE 4 
“HOD -| i DRIVE 8 
-WORD -l ; DRIVE 
;DATA TRANSFER UNDERWAY INDICATOR (OTUW=1 WORD) 
;DTUW<O IF NO DATA ER UNDERWAY 
iDTUWS+N (WHERE N=O TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 


DTUW: .WORD -1 


;ATTENTION BITS TABLE (ATABIT=8 BYTES) 
;THIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
;ATTENTION BIT 


ATABIT: .BYTE 1 ;DRIVE O 
-BYTE 2 sORIVE 1 

Be 4 DRIVE : 

RYT i BR 5 

BYTE 40 ;DRIVE S 

BYTE 100 ;DRIVE 6 

TE 200 ;DRIVE 7 


;RPO4/S/6 TO RH11 “MASSBUS CONTROL BUS PARITY ERRORS” (MCPE) ALLOWED BEFORE 
;CALLING IT FATAL (MCPEMX=1 WORD, 


MCPEMX: .WORD 3 


;STORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RPO4/S/6), 
‘RPVEC (THE VECTOR ADDRESS (254)), AND RPVEC+2 (THE BR LEVEL (5)). 


RPvee: “Hon AGS” BRse. 


;MAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD? 
MXLACT: .WORD 4 
;MAXIMUM DELTA DELAY IS 8 SECTORS (MXDLTA=1 WORD) 


MXDLTA: ‘on 8. #64. 
;MINIMUM DELTA DELAY IS 2 SECTORS (MNOLTA=1 WORD) 


K11 
Boadba°PTT> ©: aAPRACS OD TY Ed-ORIVE EXERC TARR, ollAE Ada’ AAT Arofize%e ORtvEA tREV 4" 






7668 033404 000200 MNDLTA: .WORD 2864. 
sMAXIMUM SEARCH FOR 1/0 WINDOW IS 5 SECTORS (MXWNDW=1 WORD) 
71 033406 000005 MXWNDW: .WORD 5 
7673 sDEFINITIONS OF THE RH11/RPO4/S/6 ADDRESS INDEXES 
oer oo0000 RPCS1=0 CONTROL AND STA siesta EGIS "Rothe (DR DRIVE VE REG. 00) 
p00002 RPWC= G) 
oe 000004 eke : i S (ho baive REG) 
000006 RPDA=6 REGISTER (DRIVE REG. 0S) 
000010 RPCS2=10 ATUS REG #2 (NOT A DRIVE REG) 
po0012 RPDS1=12 au ee GIST i : ce 
ppooie Rpaceié : sit (DRIVE REG. 04) 
000020 RPL A=20 iL 00k GIs ( VE . o7) my 
Booed RpMaeod :MA RraTnest ai (BRIE REG 63) 
000026 RPDT=26 ‘DR G REG. 06) 
900039 RPSN=30 : IVE REG. 10) 
RPOF =32 : G : 
000034 RPCA=34 ‘DEST 
ere = ° - 1) 
000042 RPE =e : ist 5 VE REG. 18) 
BODONe ths EGE PRPTEAR REETSTER cORIUe REG.” 19) 
ie eeoTaTS ROUTINE TLL DETERMINE. WHICH RPOW/S/6 DRIVES ARE 
;AVATLABLE F Week, ant Ne tH tet Breve DRVSTA INDICATOR 


;TO THE PROPER STATE FOR EACH DRIVE 
;NOTE: THIS ROUTINE CALLS DRVINT 


; JSR PC, RPINIT 
RETURN 


;NOTE: THE ’P’ OR ’L’ CLOCK MUST BE STARTED 


SS IPRESRSE Re GRRE ESE BE ORRG BEER Io IONS 


O44 RPINIT: SAVREG 
reeatt reed 177776 ses MOV aePsS, -(SP) i aoe PRESENT rie STATUS 
ig Geri Bere Bee I Rau es eee 
771 12701 24 MOV sR ; 3 Be CL ree 
7714 O33434 O12702 033334 MOV #SEEKFG, Re if ADDRESS TO BE CLEARED 
re gp RS HERE orgs 
7717 O33444 101776 BLOS 1s :BRANCH IF No 
71g fies Bts7 05 193399 2s: MOV #-1, (R1)+ eit ae: 
7720 020102 CHP Re 
sh 033244 gee favsta LOOP IF no DRIVES TO OFFLINE 
7723 033466 005037 033c46 CLR DRVSTA+2 


a 


: 
; 
: 


BASRA SRASS pr ctanmeaentn thin Grrr Pr PPEPRrD SADA SADARDOA Any 


° ‘ tr 
St 
-_ 








a 


q 


siete 


ee 


Ss 


: 


ae 


Rie 
a 


(545 


Lil 
TYEGL RIVE PERE TRELe UAL PORE HLT -RPOH/S/© ORIVER (REV 1-0) 





000000 
000010 


: 


A+Y 
ea ;SETUP THE RH11/RPO4/S/6 VECTOR 
SA, (R3)+ 
+6, (83) 
FIRST ADORESS OF RH11/RPO4 
1T05, RPCS2(R4)" INIT 
ist VE 0 
,ORVINT 3 IN 
ug :*DVA’ NOT OR PARITY ERROR 
TACRI) : I TUS TO OFFLINE 
#1C7,R1 : MASK Wet 
‘BR IF TO GO 
3 Rl iran Wd 


Erin AP EOE TEIN ors 


] 
RapayraPwEpssss ee 


6§: 
ioe T WAITING 
ISR PC seT TE SET 
7$: TSTB bet (R1) : DRI SWITCHED PORTS ? 
BNE ;BR f 
8S: DEC Rl *GO TO THE NEXT DRIVE 
BPL bs. *CHECK NEXT DRIVE 
Hoy (SP)+, aaPS *RESTORE THE SSOR STATUS 
SREG *RESTORE RO - RS 
RTS PC ; BYE-BYE 


sapiie “efits Rout the Be TeamvEs IF A DRIVE EXIST AND IF IT I 


IS ISSUED AND FMT2e 


Tice 1 ale lS Phas BBN He 


;DRVSTA IS SET TO THE PROPER CONDIT 


;CALL 
Rov Se Ne CRIBS ADRESS. OF RH11/RPO4/S/6 (RPCS1) 
; RETURN ERROR OCCURRED (PARITY) 
DRVINT: MOV RS ‘era vt . 

Berea a ‘WERE VE tl 

ne BH RPEBR CE ay hy) ba ote sa me (8 SEIZE DRIVE) 
ae ee ee 

TE aan 2 

JSR ‘READ THE DRIVE TYPE REG. 


¢ 
; 
: 


salaaiatatel ed 
BONO CWT 


FeBRCRRS NNISRES 


SITY & 


= 


oO 
2 


. * 

> > 
Ls 

to) 


Ba eaw ests 





+ 
. -. 
LS TUL 
> > 


re 


ERS SE a 


gavgevassasaiae 
FOVRERERERS Sok 


-_ 
ae 
7 


B 


te 


8 
= 
uw 
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11:04 


003720 
033264 


0332S4 


033254 


033254 


0332S4 


000016 


033244 


033244 


033336 


RPOT 


4§: GoM 


6$:. TST 
7$: 


8S: 
RTS 


Fe 
es Be pee lek 


»RS ioe A PORT RPO? 
DRVTYP(RI) ; INDICATOR 
mage Sa pled, 
1,R5 :  RPOS ? 
eS ORVTYP(RI) {ET RPUE INDICATOR 
»RS ain REO BOAT ? 
2s *BR IF YES 
+ amas i Pate : 
§-1,DRVTYP(R1) SET TNOTeATOR TO *OTHER’ 
6$ iEXTT so 
uel -(SP) DO A “READ-IN PRESET 
, WAT. RP 


ABT T LG» BgSP) ;SET FMT22=1 


RO, RO. RP ;READ RPDS! 


(SP)+,RS ;AND SAVE IT IN RS 
4 . IF ATA=0 
BTABIT(RL) ,RPAS(RY) iCLEAR ATTENTION BIT 
RO, RO. RP ;FIND OUT WHY ATA=1 


eee 
#-1,ORVSTACR1) iz ere INDICATOR 


X 
if 
* CHECK DPR, DRY, AND VV 
RS carrizrerroasstseekotthe 9 
BRANCH F DPR, DRY, OR WV IS CLEAR 
XIT 


: I 
Haprerant) Oey Bat A 


1 ; INDEX TO ADDRESS WORDS 
#2000. ,TIMER(R1) ;START 2 SEC TIMER 


-RESTORE R 
BPINT (RI BES ore INITIALIZE INIDICATOR 
(SP)+,R5 ;RESTORE RS 
RO sEXIT 


;REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 


a a a en nr arene mr ee re ee + 


a 
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MO- RPOY 
DZRJDB.P11  ‘'24-MAY-77 11:04 SINGLE/DUAL PORT RHI1/RPO4/S/6 DRIVER (REV 1.0) 
7836 : 
7837 * CALL 
7838 : 
| reag PRTAOR saa hace i Ob Re cee A GF RIVES PARAMETER BLOCK 
roa : RE TURNG tien ERE : feast IS IN QUEUE OR THERE 
7843 S AN ERROR CONDIT 
Rog ORIG ES TE are OY BE Te ure as ms 
ee Es fice OT eB te 
7849 11002 MOV (RO), Re PICKUP THE PARAMETER BLOCK POINTER °* 
et He eee 
res Greig igs7e1 033244 iste DRVSTA(R1) CK OF ATUS 
ress ee rite 033312 TST8 - ULDFLG(R1) {UNLOAD iN QUEUE? 
105761 033264 STB INT(RL) ING TO INIT THE DRIVE 
rac4 rani 033622 ao , DRVINT 'G0 INIT. THE DRIVE 
Feel Toe tee! 033244 Pere = davstacrs» «= TTB BRVETERrus om ine? 
0342S BLE 65 ;8R IF NOT 
Es 425 rite 033274 1S iste pees 5 QUT oe tel PORT REQUEST FOR THE DRIVE ? 
ik ata: 164 000010 MOV 1,RPCS2(R4) 
7866 tere 004037 041570 ISR RO, DRVQUE PUT Seve | Fut g REQUEST IN QUEUE 
Tee Le loaves 000103 ooc002 cree #103, 2(R2) He th THIS REQ. FOR AN UNLOAD? 
7870 fetes i1e7ot 77777 +«033312 MOVE = 8-1 ULDELG(RI) SET THE “UNLOAD IN QUEUE” FLAG 
rah cause 105761 34 2S: iste DRVACT (RI) iS THI S DRIVE ACTIVE? 
7873 tes 737 oO34452 JSR PC, OPT CALL THE OPTINIZER 
rere ee ee 120000 000016 3s: Rov FF risiersa, + 166R2) -SET THE “UNLOAD IN QUEUE” ERROR FLAG 
78r6 3 se 035562 4g ISR PC,CI7 GO HANDLE THE PARITY ERROR 
7673 Be OoHas7 041570 S$ ISR RO, DRVQUE ;PUT PUT REQUEST I IN QUEUE 
ress ete rate 000100 a #B1T06, (RY) ba SEI ALREADY ? 
041126 J , SET. IE T IN 
788 Oise 10e7eh 033244 6S: TST DRVSTACRL) SEE ony ela UNSAFE 
fas fies ome om, RHRATT™ sc PO NPS IRE 
765 aa bie vee 100002 000016 Rov aB1T1st61701, ict ) TREO IVE NONEXISTENT 


ee a eee 


4 


Jaauaapaaysaaaay f 


339131393 
Qnomulcw o 


a 


8 


2523S EGRARRIORO USO ONION 


: 


Ble 
MORE REO Te eRe RELE /DUAL ala fntanespen oniven ney ines |e 


ays 110000 000016 a: pee: 
ibs: Eon: i )+ 

nv CSP )*, 20s 

RTS 


;OPTIMIZER-CALLED FOR A PARTICULAR DRIVE 





ina 
om 


CALL 
; MOV SORVNUM, Ri ES Sed NUMBER TO R1 
: JSR PC, OPT 
bpT SAVREG 
MOV i PT ceed SVE PR 
BIC TI 1) ,SRCHMT WAIT" KEY 
Ger OF REGLEST 
TST iI AR TIN QUELE? 
er RG essen 
gir 08176, , RPDS1(R4) Peat S Ww 
10 ;6R IF I Ad 
Qs: JSR , ORVINT :SEE IF DRIVE STILL ONLINE ” 
BR : ’OvA’ NOT SET 
10S: STB TACRI) 13. ONL INE? 
Oop 
OV he eins, isc) oie ose BeFLINe. STATUS /ERROR INDICATOR 
BPL 0 EXI ot 
HOV aerTiste1Ti2, wll roe det STATUS/ERROR INDICATOR 
1S: MOV ll +58) Orga 0 THE STACK 
eH ali, it REGISTER 
RPCS1 : abr 
Bf, sBIT11, (RY) : IVE AVA ? 
BEQ BR NOT 
CMPB  s«8 150, 2(R2) its. REQUEST FOR 1/0? 
BLT ; 
JSR PC,CI4 ‘CALL INITIATOR 
2s OB TUM ipa Th TRAGER WORRY” 
Pee Bex sYES+ 60 2p ceEKSh 
BMI 3$ a a a 
JSR RO,LA NO--DO LOOK AHEAD 
BR ef aE TURN HER HERE ON A PARITY ERROR 
4 TART A SEARCH 
3S: JSR PC,CI1 START A DATA TRANSFER 


4$: JSR PC ,CI3 ;START A SEARCH 





RSE SLUR SREP CT LUC LC RE RES ERRER Gl ceca dast cata s 
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5 


Gee evelane 


=-|= 
ata 
tt, 


= 
) 1 


1 


vo 





ae 


” 24-MAY-77 


a 


177777 033274 
023420 033336 


03SS6e 
000100 


Ss: 


3 8S 
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PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 


SgRrgBapass 


RTs 


&-1 (R1) 


Le T_INO NOICATOR 
#10000. TIMER} - ART 0 he 


RL, 


at foe, (RY) 


SET.I 
(SP)+,a 


PC 


;COMMAND INITIATOR 


f 


CIl: 


CI3: 


ee eee 


33 


JSR 


BeiaessSBhSS3su 


aya23 


Ss8qecs 


28% 


BS 


Q THE sae 


qe ALREADY Ser SET 


feuare 


DPB 
Site ¢ 1,CI3, OR CI4 


EE BY DATA XFER 


:CI4=2NOT DATA TRANSFER 
‘POT Sh Reon Ei Trenarer walt QUEUE _— 
T ORI 
. COUNT 
# 
3L ADORE SS 

Of 
aes eae WRITE) ROUT ROUT INE 

Nn ROORESS 


te CYLINOER ADDRESS 


;LOAD “COMMAND+GO", “A178A16", AND “PSEL™ 


;SET “DATA TRANSFER UNDERWAY” 
;RPCS1 

;SELECT DRIVE 

DESIRED CYLINDER ADDRESS 


;PICKUP SECTOR ADDRESS 
BACKUP BY MAX. SEARCH FOR I/0 WINDOW 
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boRibe. bene OEP TNOLE/DUAL PORT RHL1/RPO4/S/6 DRIVER (REV 1.0) 
8004 PUUc 
Boop Repay 000026 1S: cs ie: 3, : COMBINE THE ADJUSTED SECTOR WITH 
ote heats Mintacig ieee . meee Ab (Re), Ags? Oho Bee TRE BORE & SECTOR 
8003 035116 000006 RPDR 
Be ie PUB Se eck! urea 
RPCS1 Sa ie 
ate giz :SET “SEARCH WAIT” KEY 
Bole 51% 155137 033360 033306 B1SB ATABIT(R1) ,SRCHAT : 
03 O70 CI4¥: MOV RY sRPCS1_ ADDRESS 
Eat else i 164 reedta MOV RI.RPCS2(R4) :SELECT DRIVE 
8019 O35155 1 MOVB 2(R2),R3 :PI REQUESTED COMMAND 
eats] 138503 eve cree #131, R3 ;15 IT A SEAR COMMAND? 
Ee 179 ue 900010 HOV 10R2), (SP) ? LOAD bes tRED TRACK 8 SECTOR 
WRT: 
802S 035562 CI? 
BR 2s 
BS feet He oo =: ire Hoss YPR, SAP he 
8029 S ee 900012 2s HOV 12(R2), =(SP) ‘POA. DESIRED CYLINDER 
st RPCA eh 
8032 C1? 
8033 000546 BR Clb “ X 
7 ath 000115 3S: MPB so #115, R3 ids T aN OFFSET" COMMAND 
BO «e540 OONOS? O4OU4S RD.RP Be Le THE OFFSET VALUE INTO RPOF 
8037 RPOF . BUT DON’T CHANGE THE UPPER 
ste Sova 1(R2), (SP) ;BYTE WHEN LOADING THE 
000001 
8040 004037 040622 JSR RO, WRT .RP ‘REGISTER (RPOF ) 
804 WNNn 32 
x. "4 
as 0 GO START THE COMMAND 
BO44 = 4S: en #197, :1S$ IT A RECALIBRATE™ COMMAND? 
BOue 122703 000117 cree 8117, R3 :BR Wen RETURN TO CENTER? 
Boue ige703 000103 CHP #103, R3 iT IT A “UNLOAD COMMAND? 
8050 reves 000001 033234 HOVE #1 Baelie ‘a THe DRIVE ACTIVE proyeator 
105061 ; 
‘SET “UNLOAD IN SS" FLAG 
Bee : jie) sopra: i is “F ;START THE “UNLOAD” COMMAND 
apes paras vas Recs 
B0S6 035340 035562 
Bee eae 0096 000143 S$: Rt 8 Sf43, Ra HTS ia Hse? FoRnar COMMAND? 
3 001014 BNE 6$ : BRANCH 
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OZRJDB.P11  ‘2@4-MAY-77 11:04 SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 
BOE befr RO, RO.RP ;READ THE OFFSET REGISTER 
BOt CI 
8063 MOVB (R2),1(SP) ;COMBINE “FMT22","ECI" “HCI” 
anes p aletg Jak AS oat Re +O aB se eentcT y ANBODR a 
8065 035562 C17 
8057 12S 
BES ; 6S: ‘ 41,R3 # ITA ei, REGISTER” COMMAND? 
8070 016203 7$: MOV 6(R2),R3 POINT To. 1ST OF WHE RE 
14 116237 000010 035432 MOVB 10(R2),9S x OR ite FIRST REG. 
8073 116205 000011 MOVB 11(Re):RS T_MOVE 
8074 004037 O40446 JSR RO, RO. RP rae 
8075 000000 35 RFCS iD, TO ey 
ae 1 MOV (SP)+, (R3)+ OF RH11/RPO4/S/6 REG. 
a078 035432 CMP 9$.RS a ape N ERO” 
1414 BEQ 1o$ 
3080 062737 O00002 035432 ADD 82, 9S Fwoex BY 2 
8081 000764 BR ag if NOP ROR 
g0ge 1 000145 10S CMPB ssa 145, R3 -IS ITA SELECT DRIVE" COMMAND? 
8083 001405 BEQ 128 BRANCH IF 
g084 10346 11S: MOV R3, -(SP) “LOAD THE COMRAND 
808S 040622 JSR RO; WRT .RP 
8036 RPCS1 
12$ cu ROM QUEUE 
B0e8 ees eases 000016 afc fstr , 16(R2) ir a ea = 
8090 16 005737 033332 TST SAVEFG Re RL /RE/S/b REGISTERS? 
aoa 1 et 041010 eek bas oveHti s BREACH THE REGISTERS 
8093 13$: RTS PC “RETURN TO USER 
BOW 006301 CIS: ASL R1 
BOSS b1e761 001750 033336 HOV #1000. , TIMER(RI) ;SET A ONE SECOND TIMER 
8097 12761 000001 033234 MOVB  81,DRVACT(R1)  ;SET THE DRIVE ACTIVE 
8098 Retsing RTS pc’ “RETURN TO THE USER 
8099 010346 CIlé: MOV R3, 7 {SP). *LOAD THE COMMAND 
8100 004037 oO40622 JSR RO; WRT. 
8101 000000 RPCS1 
1h a ie ig 
st 010000 o90010 CI7: Bt sal ri2, Rpcs2cR¥) -DRIVE NON-EXISTENT ? 
8105 001034 BNE. :BR 
1 1S: TST ‘ANYTHING IN QUEUE ? 
ot fe 
1 000016 81 1S'BIT1I1, Leche) “PARITY ERROR INDICATO OR 
81 JSR SVRH11 ;60 save’ au RH11/RPO4/S/6 REGISTERS 
8110 035610 CI7B: MOV sili wtSP) DO A “DRIVE CLEAR” 
il 4 Jar 0, WRT. RP 
tt ati 
8114 035624 041550 JSR PC, EMPTY sEMPTY THE QUEUE 
8115 035630 105061 033312 CLRB  —sULDFLG(R1) :CLEAR THE UNLOAD IN QUEUE FLAG 


eee EOE 


RPOY 
OZRJDB.P11 a4 


gocm cm co coco m9 sop soem eDeDD eDeD Ngo gD eM gD NEN eDeN emeMeD en eR|ENeM eM eRe eR SDE aD SD So gOeDD go eDeD 
SSS GRAT ORE SSO GRRE OOO SE SFR ESHLS SBR PORE SRB PES Bs 





/S/& MULTI-DRIVE EXERCISER MACYI1 27(1008) 26-MAY-77 11:01 PAGE 152 
<MAY-77 11:04 SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 
RB T(R1) S 
neki Khe DTU iF Ive THs DALE, HAD HAD ON 1/0 REQUEST 
BNE 1§ - OF THE FLAGS 
1 03339} 033356 sb ag sOTUM 
ae i. | wee 
Gare 010000 000010 Bry #81712, RPCS2(R4) Save Oe NED’ Pe 9 
1 1$ phe IF YES 
005001 R R 
acy 033234 1$ Ro T(RL) TIVE? 
rite ae BRANCH TE NO 
0137e 933304 MOV TRNSWT, Re pt “TRANSFER WAIT” QUEUE 
1 CMP R1, DTUW iD D THIS DRIVE HAVE AN I/0 IN PROGRESS? 
001402 BEQ 23 IF 
004737 O41644 ISR PC, GETREQ DPB POINTER 
2s: TST Re FOR DRIVE ? 
00141 BEQ 4§ iu NO 
010000 000010 BIT #B1T12, RPCS2(R4) i NED. SET 
BO1404 BEQ 33 TF NOT 
12762 100002 000016 HOV : 1T15!B8ITO1, Lech “SET "DRIVE NON-EXISTENT’ INDICATOR 
eee 102000 000016 3S: MOV a yrmerne, 16¢h onriive “NON-CLEARABLE PARITY” ERROR INDICATOR 
O0N737 041010 JSR PC, SVRH sive RL ¢RP04/S/6 REGISTERS 
x. herbs T7077 033336 4S: MOV e-1\ TIMER(RS) T TI 
035770 105061 4 CLRB  ORVACT(RI) :SET “DRIVE ACTIVE” TO IDLE 
035774 60137 033356 CMP R1, DTUW 1S THIS ORI VE SETUP FOR A TRANSFER 
Saeboe B12 77777 033356 BOY 31, TUM i oo ICATOR 
ean rete 635504 CLR TRNSWT Cre AR tte NFER QUEUE 
036014 105061 033312 cS: CLRB - ULDFLG(R1) ;CLEAR UNLOAD 
036020 032764 010000 o00010 BIT #81T12,RPCS2(R4) ;"NED’ SET sa 
036026 001021 BNE 6$ BA IF YES 
036030 005201 INC Ri *MOVE TO THE NEXT DRIVE 
036032 062703 000002 ADD #2,.R3 
pe Hem) 177770 BIC =—_—sa8 C7, RI 
1360 555 177777 033356 MOV -, OTUW DAT Te oe ee Runy 
Genes 033304 TRNSWT CLEAR The NIRANGPER HET" QUEUE 
1472 JSR PC, CLRQUE : ALL OF REQUEST QUEUES 
036062 012764 OO0040 o00010 sgt TOS,RPCSECRY) f NBSSBUS INIT. 
rated 550 6 FR , TYQ IVE’S QUEUE 
Beene focoe, paaeu4 deka ROSTALRDD rath alte PR EF LINE 
036102 105061 033254 CLRB  -ORVTYP(R1) aA THE ORIVE TYPE INDICATOR 
036106 004737 041126 73: JSR PC, SET. I i cEeA "IE" WIT “TRE” 
036112 104413 RESREG ‘RESTORE RO - He 
036114 000207 RTS PC ? RETURN 
;LOOK AHEAD ROUTINE 
‘CALL 
: MOV 8ORVNUM, R1 :DRIV NUMBER 
: MOV #0PB, Re’ ‘POINT TO DP 
: JSR RO,LA :GO CHECK THE WINDOW 
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Sed PRP * RUSH MRL ORINE DONG, ST LO ec RT ated iy OG 


fee ee sh 


(D coED eo DED CONDO CUED MMM MMMMMMMMMMMaD 
BIRR LSCASBSBIKRPISRE BIS aaa 


b+ bab b= bb Dh b= Pb P= bP bb hb ee be he 


SeSRRE BSS es 


Bee poe be bs bs fh bee Pe 


OnNOU £WM-O 


f 
nm 
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f 
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; RETURN sERROR RETURN 
: RE TURN2 START A SEARCH 
: RETURNS :START A DATA TRANSFER 
0361 1 72 LA: MOV RPADR, RY _AOORESS 
est ptaied $33818 MOV R1, RPCS2(R4) SELF 
036126 004037 O40446 JSR RO, RD. RP READ CURRENT CYLINDER 
036132 000036 RPCC 
036134 036246 4§ 0 ADDRESS 
036136 Oe2662 000012 CMP (SP)+,12(R2) is NT CYLINDER=DESIRED 
heats ee rit oben T(R1) sExE c — LOOK AHEAD COUNT 
eae 33355 033400 cre ACNT(R1) ) ,MXLACT” Pkt 
036160 116203 000010 MOVB 10(R2),R3 al CTOR ADDRESS AND 
C3164 o0e303 SWAB SséRG ea ET WITH 
esta aeRO 
i i cus 
Rais Rhacas BORIP 177776 Hee AB RAP AES ae UBMEbo REGISTER 
hea sense RPLA 
26, Sue 4S 
036210 162603 SUB (SP)+,R3 ;CALCULATE THE DELTA 
tine 
est§ e703 002600 BBB #(22.%64.>,R3  ;MAKE THE DELTA POSITIVE 
036220 023703 033402 1S: CMP MXDLTA, R3 ; CHECK THE TA TO SEE 
Gace Oos40 BLT iF TIS W N THE 
033404 CMP MNDLTA, R3 --] 
ix? * 
eae 2s: L PonteRL it baek aLEAD Coun 
3624 TST (RO)+ 
Sabete 3S: TST {R0)+ sBOIUST THE RETURN ADDRESS 
036246 4§: JSR PC,CI7 ‘PROCESS THE ERROR 
036252 cs: RTS RO : RETURN 
; INTERRUPT SERVICE ROUTINE 
036254 033310 ISR: HOVE ; #1, ACTDORV ser “ACTIVE DRIVER” FLAG 
eee MOV RPADR, RY OF Sl 
HOV DTUW, Rl ioe “DATA Fo ATR TRANSFER INDICATOR 
Ger Fe BE 1 iBRA PV TRANSFER DONE 
BR 2$ *EXT 
18: ISR eg PC, SC CALL SPECIAL CONDITIONS 
rate "  CLRB- Ss ACTORV arsTore “ACTIVE DRIVER" FLAG 
036316 ATI if URN 
; TRANSFER DONE ROUTINE 
036320 105061 033234 TD: CLRB  DRVACT(R1) :SET DRIVE ACTIVE INDICATOR TO IDLE 
036324 012737 177777 033356 MOV #-1, OTUW :NO DATA TRANSFERS UNDERWAY 
036332 006301 ASL Ri 


Hle 
SGaNba9FHP-*: APRS) NAGLE ORES, LRA” AAODSdroASC hed! Rly OBS 
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BRN SS os saws SEES RDO ERO Roan oon 
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Nege 
Ose7ee 
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8 
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ana 


177777 
033304 


041570 
BBBS48 
' DOL u zi 





033336 


000016 


000016 





MOV @-1,TIMER(R1) ;CANCEL TIMEOUT 


;GET “DPB” ADDRESS FROM THI: 
i WAIT QUEUE--CLEAR QUEUE 


NOV RI,RPCS2(R4) SELECT DRIVE 

IR. RO, RO. RP : TRANSFER ERROR( TRE=1)? 

CI 

ROL (SP)+ 

BMI 3$ ;BR IF nes 

TST SAVEFG ;SAVE THE RHI1/RPO4/S/6 REGISTERS? 
ia BS cvenit : REGISTERS 

JSR é CEE IF WRITE CHECK TO BE PUT IN QUEUE 


PC, WC 
1 RS” EBNTRY For DRIVE? 


BEG es ;8R IF NOT 

JSR PC, OPT ; OPTIM 

BR SC {VES 
MOV #113, (RY) 


BR on or IVE 
BIS SBITIS!BITOb, ech - ee DATA 


JSR PC EMPTY Q EMPTY THE “DRIVE’ S| WAIT" we QUEUE 
Bsr thy) ee f “Ret be 

MOV #113, (RY) RELEASE TO THE DRIVE 

BR sc Peck Fon Mts DRIVES 


;FORCED WRITE CHECK ROUTINE 


WC: 


TST AUTOCK ;AUTOMATIC WRITE CHECKS ” 
BEQ es ;BR_IF NOT 

CMPB #2, SCODE (Re) ;LAS TION WRITE DATA ? 
BEQ 1§ ;0R IF I 


CMPB «#3, SCODE(R2) =; LAST ae WRITE HEADER & DATA ? 
red , ORVQUE Pur TION IN THE QUEUE 


fife ERBE] ney, spnevithef Ost Hero 
NOY ati a at gfe) hte EchYbh ate MEER TRACK ADDRESSES 
E1eg  SenSQQ05URe)., RHE HENTE, TO CHDK ey 


BISB 810,SCOMND(R2) ;FINISH bees & CODE TO WRITE CHECK 
RTS PC ;EXIT 


; SPECIAL CONDITION ROUTINE 


SC: 


MOVB RPAS(R4Y) ,R3 AD teen 


H IF ANY ’ATA’ BITS SET 
sore, RO,RO.RP ; READ CONTROL AND STATUS REGISTER 


ROLB (SP)+ 31S “IE"=1? 


git thar) rds ORE PES TRETe 


ate _ 
ae ey 
A ees 


BBSGB SS See 
bt ps bs pe hs pe ht 
WO CNC U1 .£ WI rue © 


SESSRCREGH CSREES 
gaviniae § 
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ge 
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os 
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033224 


033232 


SC3: 
SC4: 


scs: 


1$: 


es: 


38: 
S$: 


6$: 


73: 


ee ee ee ee eee 


noe 


JSR 


a 
“ % 
wo 


jf gRamegeer 


sega 


MOV 


Ra, (SP) 
#1,R3 


A sp 


Rd 


SC3 
(SP)+ 


INT(R1) 
1§ 
(R1) 


13 
DRVSTA(R1) 
LG(R1) 
PC, GETREQ 
PC; SVRHI1 1 
PC; SCle 


DRVSTA(R1) 


#81714, RPERRS 


RPERRS#2, RS 
ACT(R1) 

PC,SCl2 
INT(R1) 
VSTACR1) 


#81T13, wemae | 


#113,-(SP) 
RO, WAT. RP 


(SP),RS 
SCc4 


Iii 
26-0 


plac Aba’ Ait Reon 76 


Peaoe - SET.IE 


Moni ven ine PAGE 155 
DRI (REV 1.0) 


tht Bea ome" 
PRO GS ALL DRIVES THAT HAVE 


;ATA=1? 
; YES- 
;MOVE TO THE NEXT DRIVE 


yf ih OUTSTANDING COMMAND 
CHECK DRIVE STATUS 


CKUP "ERROR AND 


ie I OMMAND OR ERROR RECOVERY ” 
iS Bork 


1, RPER2, AND RPER3 
iRY Ne T Mt DR 
CHANGED ? 


e 2 
aay 
: 
bs 
_ 


BR IF YES 


I WRITE THE COMMAND INTG RPCS1 
jREG vee TO ORE 


sae eae, RVTENTION 
GO CHECK FOR MORE ATA 


;REPORT THE ADDRESS PLUG CHANGE 
;CHECK FOR MORE DRIVES 


Jie 
Badba PRY BPRACS HH TYEAd-ORIVE EXERCTRER, olIRE’ Abn’ AAP oAPotve%s okiveR iRev T"B5 1° 


oszze 8 ABHOR ramercrny PROP Te we oe 
* RESTORE DRIVE ADDRESS 


1 ; 
PC, Q “GET THE POINTER FROM THE QUEUE 
Ri Reces R¥) iSELect Riv 
RD. : ’S STATUS REG. 


S: 
: 








cel Sarees Be ea 
ie tae BaD A 
0 10 MOV 
46 JSR 
1k q 
Baus Gari06 ooee AOL Caps ORS THERE AN ERROR? 
8350 O371l2 100407 BMI 1$ ‘BR IF ERROR 
Bed feats Apars} Ossess gare | BEYCTCR) = EERE EE BRIVE ACTIVE WITH ORDER 
122 Ose7ee 100210 000016 BIS del tisterro7serrbs, 16(Re) INFORM USER OF ERROR RECOVER COMPLETION 
B55 ae Goscay O4O44E, 1S i RO, RD. RP READ ERRON REGISTER #1 
037140 037370 SC8 a es 
3355 era oar? 41010 Won Pe, SANT igNVE RNIL/APON/576, REGISTERS 
37 1s0 12746 1 HOV ui 1 a(SP) ISSUE A DRIVE CLEAR 
Biri 8 aA SCBA: 0 , WAS “ E" CONDITION =1? 
ie Bee BG A oa 
aay 037172 001447 BEQ SC7 ‘BR IF NOT ; 
H 3 ’ : 
8368 037174 OS2762 100240 OOODI6 BIS ag]T1s!a1TO7!e1T0s 16(R2) INFORM USER OF ERROR 
B76 bre 1S: ie ,RD.RP READ DRIVE STATUS REG. #1 
037212 SC8 
als a a: | ara 
“« + = 
379 39555 Mio19 oe mee Bc AUR De ane. REGISTERS 
B378 O37e34 0000 000016 gis TIS!BIT12, 16(R2) ; INFORM USER OF UNSAFE ERROR 
BG ik 2s: BIT 861T12,RS s"MOL” = 1 ? 
B82 34 HOV 1 T(RL) :BR TE "ERROR RECOVER 
Bes Ra7525 neceaty Rove #1 ,ORVSTACAL : ONL ME 
ee 033336 MOV $3000. , TIMER(RI) ;START 30 SECOND TIMER 
8388 iste 052762 aes 000016 38: Hi Sarr ; INFORM USER OF ERROR 
: ; 
Hee 105761 033312 TSTB ULBFLG(RI) + ONLOAD IN PROGRESS OR QUEUE? 
a7 3e8 ; 
Fees cee 000016 1S: MO DELGCRL concent RLEAR ATTENTION BIT 
8395 TSTB  —— DRVSTA(R1) 1S THE DRIVE UNSAFE ? 





mn ne ee ee ss ee SS 


MD-11-D2ZRJD-8, earn ir Va =— ere, 
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040622 
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| 033234 5c 
: : Be wu 
| 037406 000402 
ii ae 
© BAS TERI ems 
| 8413 O37436 136137 033360 033306 
a ee 
Bie fees Hers BR ome 
8419 O37464 100002 
| BS BB PE BE mois os 
B4ee 037500 004737 d3445e 
a Ble AR sci 
Ba) Riess Bile Ra 
fe ee tite Gees Bee 
Bieg bosaa? 033622 
at ied Gea) 
Se a 
aes iefee* tad \77777 033% SC13 
BR tee Won ie 
1 
= read G23420 033336 
033264 1§ 


gig) 


z 
pecoiee one 


| 
| 
| 
| 


oe 


DUAL PORT’ Rit] “RPO /S/6 


Sg 


JSR 


BySssssq 


«4D 


wa 
maT) 


Kle 
"oRIveR they "85 |” 


es Ye IF ee IS 
#113, -(SP) 


mie : hoe (he 
fom age 


INTO RPCS1 


PC, GETREQ 
PC; CI7 hee Fhe PREITY ERROR 

C178 irae CTABLE PARITY ERROR 
ULDFLGCRL) ;-UNCOAD IN PROGRESS”? 


Bavacfial, Se Dave 

ATABIT(RI), cnet sDOTNG A SEARCH OPERATION FOR 
3 mi 

pine 


EEG 
eat, wns ehhh rene S's 


NORE DRIVES 


: 
Feces _ (6th zi 
Pal) THE FOUR REGISTERS THAT 


iRENOvE FROM QUEUE 
; 
+ BRANCH 


tWILL TELL US SOMETHING 

(RY) | RPERRS#+4 
RPER (IN, PERRO 

,ORVINT NIT. THE STATE OF THE DRIVE 

: TAKE ERROR EX 


scs 3 


1, TIMER(R1) iste ie PYRE 
Gaal? Div Ee trem BIT 


i 


fom. ,rene ;START 10 SEC TIMER AGAIN 


3$ 

QEINT CRI) Ny ING THE DRIVE ? 
on Cet) ;CLEAR THE INIT INDICATOR 
poo EANGR RETURN 
DRVSTACR1) DRIVE ONLINE ? 

es ;BR IF YES -- START ORDER 


Lle 
Boabba PH” © APRA YS¢5 TEAE ORI EERE Tete oat aS ee ‘Rev 
aes Re i UEYE FOR THE DRIVE 
i eft. reid" ay YReOae OBER THAT DRIVE OFFLINE 
PC’ EMPTY 


on THE REQUEST QUEUE 
2s: RB in THE PORT REQUEST pprenren 


= i Se | Rel are 
i RPO4/S/6 TIMER ROUTINE 
tS AMBidS??—ERPBOLI AUER om TE STC 


RPTMR: TST ACTDRV ;CHECK “ACTORV 8 ACTSTR™ 


T 

Atte tt actstr TE FRR " 

SAVREG 

CLR ‘ ‘START ROITH ORIVE 0 
1S: eR nercra) 51S THE TIMER RUNNING? 

BLT ear ne TEL 

SP), TIMER(R3) ; COUNT 

ee ee sr0 ch Crs TIFEQUTY MITINE 
2S: NC : 

TST (R3)+ 





3$: i en on Fe kc 


48S 05037 033311 CLRB. ACTSTR ACTIVE <5oe wane TIMEOUT ROUTINE FLAG 
Bibs 4g: MOV (SP)+, (SP) Just THE 
1 RTS 
gies ;SOFTWARE TIMEOUT ROUTINE 
Bua ‘NOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
8492 : OR GREATER 
8493 ; 
8494 ‘CALL: STO 
8495S 3 MOV #ORVNUM, Ri ;DRIVE NUMBER 
8496 : ISR PC, STO ‘CALL 
aia? : RETURN 
8499 O40012 01014 STO: MOV R1,-(SP) ;SAVE R1 
8500 040014 O10346 R3,-(SP) SAVE RQ 
8501 O400 13704 033372 MOV RPADR. RY ‘GET SS OF “RPCS1” 
0 000016 MOV Ri ,RPCSe(R4) ‘SELECT THE DRIVE 
32 040446 ISR "RD. RP READ “DRIVE STATUS REG” 
1057 TSTB 0s (SP )+ IS “DRY"=1? 
Beo rend ihe STo2 ‘BR IF YES 


a 


mee 


a a + ee 
| 
| nD CD ap DCO ocr sees 
} i 1 re 
"ee AC , 


Mle 
lke ARIS NAS OM, eS lO 
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ee 

wo 
oe be Pee 
2h 

-_ 

ae 

BRBES 
roe 


ix 
A 
ae 


sete 
a 
= 32 
BERS 
ese 


: 
ES 
rut 
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RRR 


ais 
3a 
me 
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— 


Fervad.! 
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033336 


STOl: tite 


ST02: MOVB 


ST03: STB 


1$: MOV 
STOS: ae 


begga 
(RL) 
PARewr, Re che’ Fenster wart queue 

Rl, OTUN ON THIS DRIVE? 


A ce 
ieee tome sree 
RC tile 6 


Mia INTIALIZE THE DRIVE ? 
'R NG PORT REQUEST FOR THE DRIVE ? 


R3 
BYgeRVINT i BRAT ty EAROR Re TURN 
DRVACT(R1) ;DRIVE TOLE BEFORE THE INIT.? 
tRuswr Re H WAIT QUEUE 
DTUM, Ri WAS THERE I/O ON THIS DRIVE? 
i 

BF PELTED co, sachet" Meme SOR TE ERO” HE 
PRYBCT BH} ; ACTIVE TO IDLE 
a-1, TIMER(RG) ST TIMER 
i : IVE NUMBER 
48. , Rl sLAST DRIVE BEEN CHECKED? 
$-1, DTUW TRANSFERS UNDERWAY 

T fies TRANSFER WAIT QUEUE 
e ALL REQUEST QUEUES 
RPAS (RY) .RS pega ATTENT 
ATABIT(RI),RS en FON Fon FuIS DRIVE UP ? 
PINT(RI) TO INTIALIZE THE DRIVE ? 
Berg (Ru) ye PORT RESUEST OR. aa THE ORIVE ? 
Rt ,DTUM ;DATA_ TRANSFER UNDERWAY FOR fase BRIVE 
RO, RD. RP tYES--CHECK “RDY™ 
(SP)+ 

01 ;BR IF “RDY"=0 
DPINT(R1) j INITIALIZING THE DRIVE ? 
QS(R1) ‘Boat iies NDING ? 

a1, TIMER(RS) ;STOP THE TIMER 
Be era G0 HANDLE THE PARITY ERROR 


eee eee 





? 


: 
8 


BEERRERRE DGS UID SIO OE DOR RURRART IIIA 


MERE heer RE 
ee 
WOnNOUWSW-O 


“on » em er tn el indy /*° 
BR 


5 
¥ 








' ix | 
105061 033264 ST06:  CLRB NICAL ;CLEAR THE INITIALIZE INDICATOR 
es hitig 3% ee He TE TEA eee 
fies c Kite kg 
TST jREQUEST IN QUEUE > 
RiG358 eee 140000 000016 % Bihar, we | F eben THE USER DRIVE NOT AVAILABLE 
| : 
} 77777 033336 ST97: 8-1, TIMER(R3) 20 
OO Nee asser4 CLR yg HTD ie PORT REQUEST INDICATOR 
at Re PR one: 
O4O422 012762 190008 000016 hoe HOV seit Sant iB1Te, 1e¢R2) teeG OF PORT REQ ST ERROR 
Sis ed lat peal nov Fe a T 
Baowde | OT SERe (35) 3 hi enh 
O4O444 000207 RTS PC 
sROUTINE TO READ A i any REGISTER 
CALL 
: JSR RO, RD.RP ;GO READ A REGISTER 
: INDEX *REG. INDEX 
: ERRADR fe Of ADDRESS —PROCESS ERROR STARTING 
: RETURN CONTERIS De REG. IS ON THE STACK 
O4O0446 013737 033370 O40610 AD.RP: MOV MCPEMX, RD. RP2 laa OWED 
O404S4 011646 me HOV (SP). -(SP) j SAVE RS FOR URN 
Roses pesna paaas ONO! Oe eR ok 
se Gitobo RD. RPL: MOV gcPC)4, (PC)+ jREAD THE 3 REGISTER OF THE RPO4 
re 1 ~ coos "MO! ie Bp. WROD, 2¢ ) REG. IT T0 THE 
oeton ea paa92 MOV Rpann ~(SP) ‘POT THe hoobese oh ie STACK 
040510 062716 000010 ADD #RPCS2, (SP) :FORM THE 
04051 6327 3b 010000 BIT WBITlc,a(SP)+ CHECK THE ’ IT 
040520 001035 sag: BNE RD. RPS ’ BR IF DRIVE NON-EXISTENT 
Set Brie BtY #BIT13, (SP) Bee bers 
c 1 BNE 1$ ‘BRANCH IF YES 
040534 22620 CMP (SP)+. (RO)+ ; ADJUST FOR RETURN 
Outs % 000430 9 BR RD. RP4 EXIT 
O40S40 104003 "ERROR 3 ;REPORT “MCPE™ ERR 
ek 005737 033356 TST DTU ;DATA TRANSFER SEOCRMAY? 
D4OSSO 16 o40000 BIT SBIT14, (SP) iNO--STRE*= 1? 
040554 001402 BEQ ' 
Bupees BORA Te BR ORD RPS Te “GLEAN, OFF Th oR EXIT 
040562 052716 o40000 2S: BIS 8BITL4, (SP) ‘CLEAR "MCPE" BY SENDING A "1" TO “TRE” 


rc re — re 


B13 


MERC TRELE/DURL PoRY RAG ToRPOMS eS ORivER they Inop Om 


SOR ADDRESS. OF HiGH BYTE 
nM reer OF RPCS! 


;FATAL ERROR EXIT 


;WR 
E 
; BRANCH IF NO 
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find 2 geig 
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‘ie inl a. 
Dae ce 
Sn Ee 
ame F ogy Be tyot sas 
cGekue bees isthe 


fe @ Ge+ 2 + 
pi Here a ba 
© Be SeheeBes S2age__ es Sire. .2 80 
> atte ee ee en 
e BAEB SPRREE AES ASESE TEOEMESLEEN SE ra 
fy Cf a eas 
J, Fee “33% pa % 
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0762 


Belk : 
ebek Se Bee al 
Sv e Se 
Beseeds sosdvevbeveesessenerneeyees 


000150 


ip Udddduudddddadduddddssuaanndaodduadaadadaddadaaandaaddas 


a ee ee eee Se - 


4 


11-D2RJ0-8, See ee tga EXERCISER MACY11 27(1006) 26-MAY- 





000010 tr aa 
{ )+ Rea Bee ne Stack 


1(R4) ;CLEAR “TRE” 


000001 1$: . 
yR4Y RESTORE R4 


DZRJDB.P11 24-MAY-77 11:04 SINGLE/DUAL PORT RH11/RPO4/S/6 ORI VER A Rev 1. = -” 
S678 atte 841000 WRT .R3: “y (RO) ,RO Tut THE “PARITY ON WRITE” ERROP EXIT 
8678 O41004 905720 WRT.R4Y: TST (RO)+ ‘ED yUS UST FOR ERROR FREE EXIT 
ea) 041006 000200 WRT.RS: RTS RO 
1 ;ROUTINE TO SAVE THE RH11/RPO4/S/6 REGISTERS AS PER DPB+14 
8682 ; 
8683 ;CALL Re : , ' 
2 TR ROBRNI 1 AERITES fee's 
8687 041010 SVRH11: SAVREG ;SAVE RO - RS 
938 O410l¢ ist Re ELE EE ENTRY FOR THE DRIVE ” 
£8 isle Ge gare my Reon 
8691 O41 000010 MOVB (Re), RPCS2(R4) ;SELECT DRIVE 
Bb3 apt 000014 HOV b4CRe), RS ‘iit Ro ones POINTER 
8694 041034 041070 CLR 33 
8695 O4104C 041070 ooo022 1S: CMP 3§, aRPOB : SOuED ee ay EER REGISTER ? 
8 ioe Shay ; 4” oe ~ 
8 1050 000200 000010 BI sB1T07,RPCS2(RY) SET ? ot 
8698 O41 BNE 2g Fr, 
Be Bie fe ah = ae 
8701 041064 O4O446 2s: ISR RO, RD. RP sreRO Te SELECTED REGISTER 
Boon BHoe Rov (SPDs (Rs iff Tre recis TBYER CONTENTS 
8705 041076 023727 041070 OD00% 4S: CMP 3$, eRPE j REACH 
£508 Bilibe FP 308 oo0002 041070 Bo aS 3s THE REGISTER INDEX 
ee 041116 pars 035562 cs: FR BE 17 IPROGESS THE URCORRECT ech p PERT TY ERROR 
8710 O41l22 104413 6S: RESREG "RESTORE RO - 
711 041124 000207 RTS PC * RETURN 
g713 ; ROUTINE TO SET THE INTERRUPT WITHOUT GETTING A “TRE” 
ae TRAE RENE, BPeER To 
a718 , _ 
8719 O41126 O10446 SET. IE: MOV RY, -(SP) 
B751 OMI oldies po0010 yO a ORES? sh 
8722 O41140 011446 MOV (R94), -(SP) READ RPCS1 
g7e3 1 intste 040000 IS T14, (SP) T He ORE” BIT OF THE WORD READ 
B75 Riis 14 000100 MOVE TO6, (RY) ‘Sy "Ie" 
i 010000 BIT T12;RPCS2(R4) iis “NED"=1? 

fee ils 

041170 

041174 


QR 
BP 
SSBAP 
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A :ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
CALL 
Bas ; JSR PC, CLRQUE 
8793 041472 CLRQUE: SAVREG ; RO - of 
gras 1474 MOV NT, Re : THE UE COUNTS 
1500 CLR (Re)+ : $1 
a7 1 CLR (Ro)+ iDR 28 
8798 O41 CLR (Re)+ iDRIVES 6 8 
g733 ovi510 MOV 88. R3 s MOVE TART ING 
1514 MOV ast T.Ri : SS OF THE QUEUE INTO 
8801 041520 iS: HOV (R1)+, (R2)+ : THE QUEUE INPUT POINTER 
oo Glisss BOY is THE STARTING ADDRESS 
B80S ete MOV sesther R1 Of Fae SuEUE INTO THE 
B80 OH1S% 2s: MOV (R1)+, (R2)+ : QUE POINTER 
1 DEC R3 
egos o41S42 BNE 2s 
g809 041544 RESREG ;RESTORE RO - RS 
8810 041546 R PC 
BB le ;EMPTY THE QUEUE SPECIFIED BY RI 
8814 : CALL 
8815 : MOV DRVNUM, R1 ;DRIVE NUMBER TO R1 
gB16 : JSR PC, EMPTYQ 
8818 41550 105061 041200 EMPTYQ: CLRE QCNT (RI) ;CLEAR NUMBER OF ITEMS IN QUEUE 
1 1 o4 4 NPT(R1),QOUTPT(R1) ;SET OUTPUT QUEUE POINTER=INPUT POINTER 
Beet Galees paps; Otel0 olesC AR ORL 
e822 O41566 000207 RTS PC 
8824 ;ROUTINE TO PUT A REQUEST IN QUEUE 
‘ CALL 
Bess : MOV 8DRVNUM, R1 sORIVE _HUnBER 
BB¢ . Tee ORD DAVGUE P cbucee TH SUENE 
He Return 2" pi ERS Tr Queue ee FULL 
8831 : RETURN2 RETURN HERE IF REQUEST IS IN QUEUE 
oo 041570 122761 O00010 041200 DRVQUE: CMPB 810, QCNT(R1) 18 QUEUE FULL? 
8894 041576 001421 BEG 2$ ‘BR IF YES-TAKE RETURN 
B35 41600 105261 041200 INCB GCNT(RI) INCREMENT QUEUE COUNT 
Base 5 041606 Bias | 041210 aa HOV Re, + SQINPT (RL) ;PUT THIS REQUEST IN QUEUE 
Ee Bite Gee 61 reat 041252 ow GIAPTCRL), RA op atone TINE TO RESET THE POINTER 
ead 041630 O16161 041250 041210 * NOV bg rartiRi), QINPTIRI) : YES--RESET POINTER 
8843 O41640 Soeson ; TST (RO)+ : TAKE RETURN 2 
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o41642 000200 RTS RO ;RETURN TO USER 
pelea TO GET THE “DPB” ADDRESS OF NEXT REQUEST IN QUEUE 
‘CALL 
MBER TO RI 


MOV #ORVNUM, R1 
JSR PC, GETREQ 


sade coe, NOuELE 


041644 GETREQ: CLR R2 
041646 105761 041200 TSTB = QCNT(R1) 51S THERE aNY REQUEST IN QUEUE? 
Ovib52 001404 - BEQ i :NO--- 
gta Wate 041230 : MOV SOOUTPT(RI),R2 PICKUP “DPB” POINTER FOR THIS DRIVE 
Ov 1662 Q06201 ASR R 
1664 2S: RTS RETURN TO USER 
ROUTINE TO “POP™ THE REQUEST FROM QUEUE 
CALL 
: MOV 8ORVNUM, RI ;DRIVE NUMBER TO Ri 
: JSR PC, POPQUE “CALL TO REMOVE REQUEST 
: RETURN ‘R2=ADDRESS OF DPS REMOVED 
O41666 105361 041200 POPQUE: DECB QCNT(R1) ;DECREMENT QUEUE COUNT 
041672 006301 ASL R 
G41674 017102 041230 MOV QQOUTPT (RI) R2 ;GET THE wore, POINTER 
041700 062761 O00002 041230 ADD QOUTPT(RI) :UPDATE THE QUEUE POINTER 
041706 26161 041230 041252 CMP SOUTPTCRI) asTopiRi) te TO ea THE POINTER? 
1714 003 BNE :NO-— BRANCH To EXIT 
1718 i 041250 041230 a HOV START(RI), , QOUTPT(R1) -- HE POINTER 
041726 000207 ; RTS PC ;RETURN TO USER 
. 5 RERERALAAA AEE RAAA SALE LAA SEALER ERLE E REL RERERAAA EAA ALAE SEAL AATE 
.SBTTL DATA, CONTROL, 8 STATUS BLOCKS 
: 5 EEE EALELLLALAALELE SEALE SESE RL LAAAEL ESR AE AA LALA LE LRARERARALALLLLE 
BLOCK LOCATION EQUATE STATEMENTS 
000001 SFMT —s = FMT, HCI,ECI OR OFFSET CODE 
oo0002 SCOMND = SFMT+1 ‘OPERATION CODE 
000003 SPSEL = SFMT+2 ‘PORT SELECT & BITS Alb, Al7 
000006 er: seme TOPPER aOR SR REGISTER TABLE POINTER 
000010 $SEC = MT+7 SECT AppRE Se a 15T REG ADOR 
000011 STRK = SFMT+10 : TRACK ADDRESS OF LAST REG ADDR 
000012 SCYL = SFMT+11 iCYL TNOER 
000014 SREG == SFMT+13 REGISTER STORAGE (IF ERROR) 
000016 STATUS = SFMT+15 ‘STATUS WORD (SET BY DRIVER) 
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SFMT+17 


ny a yd 2’S COMP) 
Bel Tok RATION 


iBeey US Com PACK pe 
SELECTION CODE 

a - TRACK, SECTOR, CYLINDER 

XFERED COUNT (R & W) 

GI MUSE cou 

ics ' COUNT 
BF PRE Elec cnn 
; PROG DETECTED MISPOST TIONING ERROR S COUNT 
: UE ’FAIRNESS’ COUNT 


; INDEX EQUATES TO THE NEXT OPERATION PARAMETERS 


s NEXT OPERATION CODE 
5 


tS SHIRE 


;PARAMETER SELECTION INDICATOR 


+ AINT HR CYLINDER ADDRESS 
ee 318 ADDRESS 
ADDRESS 
: MINIMUM pan ADDRESS 


S$ 
Minton SEC S$ 
;FIRST OPERATION INDICATOR 


;BAD SECTOR/TRACK ADDRESS tonnes AREA INDEX EQUATE 


;BAD SECTOR STORAGE TABLE 


;DRIVE ID 


;RPOY REGISTER STORAGE 


§NCODE = SWROL +S4 
aNeere SHESRES 
SNTRK = tn 

s + 
Sri : SRE +e 
$NEX = SNCODE+10 
; INDEX EQUATES FOR MAXIMUM/MINIMUM ADDRESSES 
MAXCYL = SNCODE+12 
MINCYL = MAXCYL+2 
MAXTRK = MAXCYL+4 
MINTRK = CYL+6 
Nee K = MAXCYL+1 
MINSEC = MAXCYL+1 
SFIRST = MAXCYL+14 
S$BDSEC = MAXCYL+16 
;DRIVE ID AREA INDEX EQUATE 
SDRVID = $BDSEC+100 
;RH11/RPO4/S/6 REGISTER EQUATES 

PCcSi = $0810 0+10 

s RPC 33 
SRPBA = SRpcel ed 

BSH, 

CSe = 

SRPOS! = SRPCS1+1 


Hecinari ee RPA ERPEP CTL CURE RERERRRRTAdaacea ear t 
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0002S0 SRPER1 = SRPCS1+14 
o00eS2 ay s secs? 318 
ames : pale 
000260 = 1+ 
000262 SRPDT = SRPCS1+26 
000264 s 1+ 
aoe fee = | BPI 
s 1+ 
oats srece, = Sree 
000276 SRPERS = SRPCS1+4e 
000300 SRPEC1] = SRPCS1+44 
000302 SRPECe2 = SRPCS1+46 
;BLOCK FOR DRIVE 0 
041730 000 000 DRIVEO: .BYTE 0,0 ;DRIVE NUMBER 
041732 oo0000S -BLKW 5 
041744 O42164 . WORD . +$RPCS1-SREG 
041746 O00266 .BLKB S$RPEC2-SREG 


;BLOCK FOR DRIVE 1 

42234 001 000 DRIVE1: .BYTE 1,0 ;DRIVE NUMBER 
ooo00s -BLKW 5S 

O422S0 042470 -WORD .+$RPCS1-SREG 

O4e2Se 000266 -BLKB S$RPEC2-SREG 

;BLOCK FOR DRIVE 2 

40 OGe 000 DRIVE2: .BYTE 2,0 ;DRIVE NUMBER 

000095 - BLKW 

O4eSS4 042774 -WORD .+$RPCS1-SREG 

O4eSS6 000266 -BLKB S$RPEC2-SREG 

;BLOCK FOR DRIVE 3 

043044 003 000 DRIVE3: .BYTE 3,0 ;DRIVE NUMBER 
000005 -BLKW 5S 

043060 043309 -WORD .+SRPCS1-SREG 

O4306e O00266 -BLKB SRPEC2-S$REG 

;BLOCK FOR DRIVE 4 

043350 004 000 DRIVEY: .BYTE 4,0 ;ORIVE NUMBER 


Busse Byaes FORD * sSRPCS1-SREG 


043366 000266 “BLKB $RPEC2-SREG 


ss 


bs bs 
-O 
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;BLOCK FOR DRIVE 6 
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< . 
Cc 
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e G 
;BLOCK FOR DRIVE 7 


044464 007 000 DRIVE?: -BYTE 7,0 ;DRIVE NUMBER 
panes ra “WORD .+S$RPCS1-SREG 
f44502 000266 “BLKB S$RPEC2-SREG 
;GENERAL PURPOSE DPB - USED BY ’READHD’, "RECALT’, ‘OFFSET’,8'RTNCTR’ 
gon000 000000 177774 GENDPB: .WORD 0,0,-4,CYLDER 
000000 oo0000 o4s010 .WORD 0,0,GENREG,O 
pooues or GENREG: .BLKW 24 ;REGISTER STORAGE IF ERROR 
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EM20: .ASCIZ /HEADER CRC ERROR/ 


/DATA CHECK (’DCK’) ERROR/ 
-ASCIZ /WRITE CHECK ERROR - DATA CHECK (’DCK’) NOT SET/ 


-ASCIZ /WRITE CHECK ERROR - DATA CHECK (’DCK’) SET/ 
-ASCIZ /HEADER READ ERROR - ’FMT’ BIT DROPPED’ 


-ASCIZ 


EM2e2: 
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EM23: 


-ASCIZ /HEADER READ ERROR - HEADER COMPARE (’HCE’) ERROR/ 
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/HEADER COMPARE ('HCE’) ERROR/ 
-ASCIZ /PARITY (’PAR’) ERROR AFTER OPERATION STARTED/ 


-ASCIZ /OPERATION INCOMPLETE (’OPI’) ERROR/ 


-ASCIZ /DATA CHECK (’DCK’) SET DURING WRITE CHECK COMMAND/ 


-ASCIZ /WRITE CLOCK FAILURE (’WCF’) ERROR/ 


-ASCIZ /INVALID ADDRESS (’IAE’) ERROR/ 
-ASCIZ /WRITE LOCK (’WLE’) ERROR/ 


EM32: .ASCIZ /DRIVE TIMING (’DTE’) ERROR/ 


EM31: 
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/RH11 OR UNIBUS TRANSFER ERROR/ 


-ASCIZ /BUS ADDRESS OR WORD COUNT INCORRECT/ 
-ASCIZ /ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH11/ 


-ASCIZ /ECC LOGIC FAILURE - POSITION REGISTER VALUE TOO LARGE/ 


-ASCIZ /CAN’T MATCH DATA READ WITH A PATTERN’ 


EM4O: .ASCIZ 
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101 EM42:  .ASCIZ /DATA COMPARE ERRORS - NO OTHER ERROR(S) DETECTED/ 
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-ASCIZ /SRPADR/ 


-ASCII /ORV RPCS1 RPCS2 RPDS! RPERI 


-ASCIZ /RPER2 RPER3 PEC] RPEC2/<CR><LF> 


-ASCII /RPWC RPBA RPDA RPAS RPLA 


-ASCIZ /RPOB RPMR RPOT/“<CR><LF> 


-ASCIZ /RPSN RPOF RPCA RPCC STATUS/<CR><LF> 


- EVEN 
-WORD ATTN,O 


-WORD ORIVE,RPERRS, RPERRS+2,RPERRS+4, RPERRS+6,ATTN,O 


-WORD ODORIVE,RD.ADR,RD.WRO,O 
-WORD DRIVE,WRT.AD,WRT.WO,RO.WRO,O 


-WORD S$RPADR,O 
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-WORD SRPCS1,SRPCS2, SRPDS1 , SRPER1 , SRPER2, SRPER3, SRPEC1, SRPEC2, 0 
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